SY33-8557-4 
FaeNo.*S37C«/S4306-31 



DOS/VSE Librarian 
Systems Logic 

Program Number 5745-SC-LBR 



Summary of Amendments 

Edition SY33-8557-4 documents: 

• Fast CORGZ 

• Extended COPYSEBV 

• Fixed Block Architecture (FBA) Direct Access storage Devices IBM 
3310 and 3370 

Technical corrections and editorial changes have also been included. 
Changes in contents are indicated by a vertical bar to the left of the 
change. 



Fifth Edition (February 1979) 

This is a major revision of, and obsoletes, SX 33-8557- 3 and Technical 
Newsletter SN33-9214. 

This edition applies to the IBM Disk Operating System/Virtual Storage 
Extended (DOS/VSE) and to all subsequent releases until otherwise 
indicated. Changes are continually nade to the information herein; 
before using this publication in connection with the operation of IBM 
systems* consult the latest IBM System/370 B ib liocjr ajJhv, , GC20-0001, 
for the editions that are applicable and current. 

Requests for copies of IBM publications should be made to your IBM 
representative or to the IBM branch office serving your locality. 

h form for readers* comments is provided at the back of this 
publication. If the form has been removed, comments may be addressed 
to IBM Laboratory, Publications Department, Schoenaicher strasse 220, 
D-7030 Boeblingen, Germany. IBM may use or distribute any of the 
information you supply in any way it believes appropriate without 
incurring any obligation whatever. Sou may, of course, continue to use 
the information you supply. 

© Copyright International Business Machines Corporation 1972, 1973,, 
197<», 1977, 1379 



#i?l 



Technical Newsletter 



This Newsletter No. 
Date 

Base Publication No. 
File No. 

Previous Newsletters 



SN33-9266 
April 30, 1979 

SY33-8557-4 
S370/S4300-31 

None 



DOS/VSE Librarian Logic 

© IBM Corp. 1972, 1973, 1974, 1977, 1979 



This Technical Newsletter, a part of the Disk Operating System/Virtual Storage Extended, provides 
replacement pages for your publication. These replacement pages remain in effect for subsequent 
DOS/VSE releases unless specifically altered. Pages to be replaced are: 



231-236 
239, 240 

A technical change to the text or to an illustration is indicated by a vertical line to the left of the change. 
Editorial changes are not indicated. 



Summary of Amendments 

This technical newsletter documents corrections to the library format. 



Note: Please insert this page in your publication to provide a record of changes. 



IBM Laboratory, Programming Publications Department, Boeblingen, Germany 

© IBM Corp. 1979 Printed in U.S.A. 



PREFACE 



I In this publication, system and component names as listed below | 
| should be read as indicated: | 

I I 

| System/component name To be read as | 

I DOS/VS D0S/VSE (see Note below) | 

I I 

| Note: Unless this name explicitly refers to DOS/VS Release 34 or | 
I an earlier DOS/VS release. | 

This Program Logic Manual (PLM) is a detailed guide to the IBM Disk 
Operating System/Virtual Storage (DOS/VS) Librarian Organization, 
Maintenance, and Service programs. It supplements the program 
listings by providing descriptive text and flowcharts. 

Prerequisite and related publications that will aid in the use of this 
manual follow. 

PREREQUISITE 

• DQS/VS System Control Statements, GC 3 3- 5 37 6. 

• OS/VST £OS/VS , a n d~V M / 3 7 (T A s s e m b 1 e r L a n^ua ge Guide, GC 3 3 - 40 1 . 

RELATED 

• DOS/VS System Generation, GC 3 3- 5 3 77. 

• DQS/VS MejsagesT~GC3 3-537 9. 

• DOS/VS LIOCS Volume 1. SY 33-8559. 

For overall system control logic description, this Program Logic 
Manual is to be used with six other PLMs: 

• DOS/VS Supervisor Logic, SY33-8551. 

• DQS/VS Error Recovery, and Recording Transients Logic, SY 33-8552. 

• DOS/VS Logical Transients and Dum£ Phases Logic ,~SY 33-8553. 

• fiolzll S y s t e m~ S e r y I c ea b i 1 i t y~ A ill Log Ic"sY 3 3-8554. 

• DOS/VS Initial""prpgram Load and"" J o b~C o n t ro 1 Logic, SY33-8555. 

• POS/VS Linkage Editor LoIic,""sY 3 3-8556." 

Titles and abstracts of other related publications are listed in the 
IBM System/370 Bibliography, GC20-0001. 



Publication Organizat io n 

This manual consists of five major sections. The first is an 
introduction briefly discussing the functions of librarian programs. 

The next section, Method of Operation, shows the I/O flow in Librarian 
Programs and describes their function, control flow and partition 
layout if there is more than one phase, and sequence of operation. 

The next section. Program Organization, contains numbered charts 
describing the program flow. Some of these charts fan out in more 
detailed flow charts identified by letters. 

Then follows the section Data Areas which shows SYSRES formats, 
especially the libraries for CKD and fixed block devices. The last 
section. Diagnostics, lists labels, phases, error messages, and 
internal error codes as references for debugging. 



Preface 3 



TABLE OF CONTENTS 



FIGURES . . . ■. . 8 

INTRODUCTION . . 9 

METHOD OP OPERATION .11 

I/O Access to Librarian Files. .••••..•• ... .11 

Organization Programs. 13 

The COPYSERV Program., Chart 01 .13 

The CORGZ Program 15 

The Maintenance Program MA INT. ....... ....19 

Calling Structure of MAINT 20 

Partition Layout of MAINT. ...... .21 

Sequence of Operation of Individual MAINT Phases ........ .21 

The Service Phase $LIBSTAT, Chart 47 .... . .28 

The Service Phase $MAINDIR or SMATNDIF, Charts 48 to 69. .... .29 

Service Programs .....•• .32 

Functions of the Service Programs • •••.•••.. .32 

The DSERV Program, Charts 70 to 76 .33 

The CSERV Program, Charts 77 to 78 . 36 

The RSERV Program, Charts 79 to 81 , . .36 

The SSERV Program, Charts 82 to 83 ... 37 

The PSERV Program, Charts £4 to 85 37 

The $$BSYSWR Transient, Chart 86 ............... . .36 

The $$BOPNLB Transient, Chart 87 ... . . .38 

The DTFSL and DTFPL Macros, Charts 88 to 90. . . 39 

The Phase $IJBLBSL, Charts 91 to 93 .42 

PROGRAM ORGANIZATION . 43 

General Charts „ . ,************«***. 43 

General Charts Conventions:. 43 

Chart 01. COPYSERV (Detail Chart AA) ......... 44 

Chart 02. CORGZ - Root Phase (Part 1 of 2). .... 45 

Chart 03. CORGZ - Root Phase (Part 2 of 2). .......... .46 

Chart 04. CORGZ3 (Part 1 of 3) ... ' 47 

Chart 05. C0RGZ3 (Part 2 of 3) 48 

Chart 06. C0RGZ3 (Part 3 of 3) . 49 

Chart 07. C0RGZ6 (Part 1 of 3) . 50 

Chart 08. C0RGZ6 (Part 2 of 3) . . 51 

Chart 09. C0RGZ6 (Part 3 of 3) .52 

Chart 10. C0RGZ7 (Part 1 of 2) 53 

Chart 11. C0RGZ7 (Part 2 of 2) ...... 54 

Chart 12. C0RGZ3F (Part 1 of 3) 55 

Chart 13. CORGZ3F (Part 2 of 3) .56 

Chart 14. C0RGZ3F (Part 3 of 3) 57 

Chart 15. CORGZ6F (Part 1 of 3) ... ' 58 

Chart 16. C0RGZ6F (Part 2 of 3) .59 

Chart 17. C0RGZ6F (Part 3 of 3) .60 

Chart 18. C0RGZ7F (Part 1 of 2) 61 

Chart 19. C0RGZ7F (Part 2 of 2) .62 

Chart 20. MAINT - Root Phase (Part 1 of 4) .63 

Chart 21. MAINT - Root Phase (Part 2 of 4) . . . 64 

Chart 22. MAINT - Root Phase (Part 3 of 4) . . 65 

Chart 23. MAINT - Root Phase (Part 4 of 4) .......... . .66 

Chart 24. MAINTCL (Detail Charts EX-FA) ............ .67 

Chart 25. MAINTCN (Detail Charts FD-FM) . 68 

Chart 26. MAINTCNF (Part 1 of 4) ........ . 69 

Chart 27. MAINTCNF (Part 2 of 4). 70 

Chart 28. MAINTCNF (Part 3 of 4). .71 

Chart 29. MAINTCNF (Part 4 of 4) ............. . . . .72 

Chart 30. MAINTR2 73 

Chart 31. MAINTR2F. 74 



4 DOS /VS Librarian 



Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Chart 
Detail C 
Chart 
Chart 
Chart 
Chart 
Chart 



32. 
33. 
34. 
35. 
36. 
37. 
38. 
39. 
40. 
41. 
42. 
43. 
44. 
45, 
46. 
47. 
48. 
49. 
50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 
71. 
72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
81. 
82. 
83. 
84. 
85. 
86. 
87. 
88. 
89. 
90. 
91. 
92. 
93. 
hart* 

AA. 

EX. 

EY. 

PA. 

FD. 



MAINTS2 . . . . 

MAINTS2F. . . . 

MAINTP2 . . . . 

MAINTP2F. . . . 

MAINTDR (Part 1 

MAINTDR (Part 2 

MAINTDRF (Part 

MAINTDRF (Part 

MAINTA (Detail 

MAINTAP (Part 1 

MAINTAP (Part 2 

MAINTAP (Part 3 

MAINTUP/F (Part 

MAINTUP/F (Part 

MAINTUP/F (Part 

SLIBSTAT. . . . 

SMAINDIR 

$MAINDIR 

SMAINDIR 

$MAINDIR 

SMAINDIR 

$MAINDIR 

SMAINDIR 

$MAINDIR 

SWAINDIR 

$MAINDIR 

$MAINDIF 

$MAINDIF 

SMAINDIF 

$MAINDIF 

$MAINDIF 

$MAINDIF 

SMAINDIF 

$MAINDIF 

$MAINDIF 

SMAINDIF 

$MAINDIF 

$MAINDIF 

DSERV . . 



.75 
.76 
.77 
.78 



of 2) ... 79 

of 2) 80 

1 of 2) 81 

2 of 2) .82 

Charts MA-MQ) 83 

of 3) 84 

of 3) 85 

of 3) 86 

1 of 3) (Detail Charts NA-PG) 87 

2 of 3) (Detail Charts NA-PG) 88 

3 of 3) (Detail Charts NA-PG) 89 

90 



(Part 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part) 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part 

(Part 



1 of 10) 91 

2 of 10) 92 

3 of 10) 93 

4 of 10) 94 

5 of 10) 95 

6 of 10) .96 

7 of 10) 97 

8 of 10) 98 

9 of 10) 99 

10 of 10) ... . 100 

1 of 12) 101 

2 of 12) 102 

3 
4 
5 
6 
7 
8 of 



of 
of 



12) 
12) 



103 
104 



of 12) 105 

of 12) .... .106 

of 12) .107 



9 of 



12) 
12) 



108 
109 



10 of 12) 110 

11 of 12) ......... 111 

12 of 12). . 112 

113 



DSERVC/DSERVF 114 

DSERV1 (Part 1 of 2) 115 

DSERV1 (Part 2 of 2) 116 

DSERV2/DSERV2F 117 

DSERV3/DSERV4/DSERV5 118 

DSERV3F/DSERV6 119 

CSERV 120 

CSERVC/CSERVF ........ . .121 

RSERV (Part 1 of 2) * . 122 

RSERV (Part 2 of 2) . . . 123 

RSERVC/RSERVF . 124 

SSERV (Part 1 of 2) . . 125 

SSERV (Part 2 of 2) 126 

PSERV (Part 1 of 2) . . 127 

PSERY (Part 2 of 2) .128 

$$BSYSWR. ... 129 

$$B0PNLB. 130 



DTFSL Macro (Part 1 
DTFSL Hacro (Part 2 
DTFSL Macro (Part 3 



of 3) ............. . 131 

of 3) . . 132 

of 3) . 133 

$IJBLBSL (Part 1 of 3) 134 

$IJBLBSL (Part 2 of 3) 135 

SIJBLBSL (Part 3 of 3) . 136 

.*..... 137 

COPYSERV ..... . ........... 138 

MAINTCL. ............ 139 

MAINTCL. ...................... 140 

MAINTCL. ._« .................... . 141 

MAINTCN - Initialize for Library Condense. . . . . . 142 



Contents 



Chart FE. HAINTCN - Initialize for Library Condense, . .... 143 

Chart FP. HAINTCN - Condense Directories . 144 

Chart PG. HAINTCN - Condense Directories ..••.....•• 145 

Chart PH. HAINTCN - Write Condensed Library and Directory. . . 146 
Chart FJ. HAINTCN - End Routine. Initiate Load for next 

Condense. RPS Routine • ••••••.••...••...... 147 

Chart PK. HAINTCN - I/O and I/O Error Subroutines.. ..... 148 

Chart PL. HAINTCN - Destroy IPL Record 1, Block Count and Disk 

Address Extraction, • ....... 149 

Chart FH. HAINTCN - Update Subroutines ....... 150 

Chart MA. HA I OTA - Process Control Card, Store Allocation 

Information ' (Part '1 of 2) ..... . . .•••.•• 151 

Chart MB. HAINTA - Store Allocation Information (Part 2 of 2) . 152 
Chart MC. HAINTA - Read System Directory Records and Update 

ALLOC (Part 1 of 2) 153 

Chart HD. HAINTA - Read System Directory Records and Update 

ALLOC (Part 2 of 2) 154 

Chart HE. HAINTA - Build Directory and Library Reallocation 

Tables. ... 155 

Chart HP. HAINTA - Compute Displacement for Directory and 

Library Hovement. • . • • . • . • . . . 156 

Chart HG. HAINTA - Update System Directory Records 1, 2, and 3 157 
Chart HH. HAINTA - Write Directory Records, Blank Cylinder 0, 

Tracks 5-9 158 

Chart HJ. HAINTA - Update Library Directories 159 

Chart HK. HAINTA - Relocate Libraries and Directories 160 

Chart HL. HAINTA - Format Unused Tracks (Part 1 of 2) 161 

Chart HH. HAINTA - Format Unused Tracks (Part 2 of 2) 162 

Chart HN. HAINTA - Error Routines. . . 163 

Chart HP. MAINTA - Subroutines 164 

Chart HQ. MAINTA - Subroutines ........ 165 

Chart NA. MAINTUP - Initialize I/O Table, CHeck for Operands 

(Part 1 of 3) 166 

Chart NB. HAINTUP - Initialize I/O Table, Check for Operands 

(Part 2 of 3) 167 

Chart NC. MAINTUP - Initialize I/O Table, Check for Operands 

(Part 3 of 3) 168 

Chart ND. HAINTUP - Check Temporary Update Operand 169 

Chart NE. HAINTUP .- Process V.M Operand (Part 1 of 2) 170 

Chart NF. HAINTUP - Process V.H Operand (Part 2 of 2) . . . . . 171 
Chart NG. MAINTUP - Process ADD Control Statement (Part 1 of 

2) . ............ 172 

Chart NH. HAINTUP - Process ADD Control Statement (Part 2 of 

2) 173 

Chart NJ. MAINTUP - Proceee REP Control Statement (Part 1 of 

2) . . . 174 

Chart NK. HAINTUP - Process REP Control Statement (Part 2 of 

2) ...... . 175 

Chart NL. HAINTUP - Process DEL Control Statement. ...... 176 

Chart NH* HAINTUP - Process END Control Statement (Part 1 of 

3) ....... 177 

Chart NN. HAINTUP - Process END Control Statement (Part 2 of 

3) . . . . 178 

Chart NP. MAINTUP - Process END Control Statement (Part 3 of 

3) 179 

Chart HQ. HAINTUP - Subroutines (Part 1 of 6). ........ 180 

Chart NR. MAINTOP - Subroutines (Part 2 of 6).' .- 181 

Chart NS. HAINTUP '- Subroutines (Part 3 of 6) . . 182 

Chart NT. HAINTUP - Subroutines (Part 4 of 6) . . ■ 183 

Chart NU. HAINTUP - Subroutines (Part 5 of 6) . . . . . . . . . 184 

Chart NV. HAINTUP - Subroutines (Part 6 of 6) ........ . 185 

Chart NW. HAINTUP - Sequence Number Check (Part 1 of 4) . . . . 186 

Chart NX. HAINTUP - Sequence Number Check (Part 2 of 4) . . . . 187 

Chart NY. HAINTUP -Sequence Number Check (Part 3 of 4). . . . 188 

Chart NZ. HAINTUP - Sequence Number Chart (Part 4 of 4) . . . . 189 

Chart PC. HA1NTUPF - Initialization. ..... 190 

Chart PD. MA1NTUPF - END Statem. Routine. Update Directory and 

Library Descriptor ..••••••<. w ...... . 191 



6 DOS/?S Librarian 



Chart PE. MAINTUPF - Update Directory and Library Descriptor . 192 

Chart PP. MAINTUPF - Prepare Directory Scan. 193 

Chart PG. MAINTUPF - Member Block Write Routine 194 

Chart RA. DSERV1 195 

Chart RB. DSERV2 196 

Chart RC. DSERV2P 197 

Chart RD. DSERV3 198 

Chart RE. DSERV3F. . 199 

Chart RF. DSERV4 and DSERV5. 200 

Chart RG. DSERV6 201 

DATA AREAS 202 

INITABLE from MAINT Root Phase 202 

Reallocation Tables from MAINTA or MAINTAF . 204 

Library Status Table from SLIBSTAT 206 

The Stow Table and the TABIN Array (for $MAINDIR/$MAINDIF) .... 206 

CKD Formats in STOWTAB 206 

Fixed Block Formats in STOWTAB 207 

The TABIN Array 209 

Switches for Various Phases. . . 209 

Switches for $MAINDIR 209 

Switches for SMAINDIF ; 211 

Switches for the DSERV Program .212 

SYSRES Formats 214 

SYSRES Overview 214 

The System Directory 217 

Libraries on CKD Devices 219 

Core Image Library 219 

Relocatable Library. 222 

Source Statement Library . 228 

Procedure Library * . 230 

Libraries on Fixed Block Devices ... 231 

Directory Space on a Fixed Block Device . 231 

Member Space on a Fixed Block Device 23^8 

Private Libraries. ....... 238 

General Overview of Library Record Sizes 239 

DIAGNOSTICS 240 

Label List for Charts 01-93. 240 

Label List for Charts AA-RG 243 

Phase to Module Cross Reference 248 

Messages Cross Reference . ...... 249 

Internal Librarian Error and Return Codes 250 

Return Codes with Message 3M17I: ... ....... 250 

Return Codes for $MAINDIR/$MAINDIF . 250 

INDEX. . . . 251 



Contents 



FIGURES 



Figure 


1 


Figure 


2 


Figure 


3 


Figure 


4 


Figure 


5 


Figure 


6 


Figure 


7 


Figure 


8 


Figure 


9 


Figure 


10 


Figure 


11 


Figure 


12 


Figure 


13 


Figure 


14 


Figure 


15 


Figure 


16 


Figure 


17 


Figure 


18 


Figure 


19 


Figure 


20 


Figure 


21 


Figure 


22 


Figure 


23 


Figure 


24 


Figure 


25 


Figure 


26 


Figure 


27 


Figure 


28 


Figure 


29 



I/O Flow in Librarian Phases 12 

Printout Produced by C0PYSERV 14 

CORGZ Program Calling Structure 15 

CORGZ Program Partition Layout 16 

CORGZ I/O Flow 17 

MAINT Program Calling Structure 20 

MAINT Program Partition Layout 21 

Reallocation of SYSRES by MAINTA 26 

Reallocation of SYSRES by MAINTAF 27 

Sequence of Operation in tfMAINDIR and JMftlNDIF 30 

DSERV Program Calling Structure 34 

DSERV Program Partition Layout 34 

INITABLE from MAINT Root Phase 202 

MAIMTA Reallocation Table 204 

MAINTAF Reallocation Table 205 

Library Status Table 206 

Layout of SYSRES on a CKD Device 215 

Layout of SYSRES on a Fixed Block Device 216 

System Directory on a CKD Device 218 

System Directory on a Fixed Block Device 218 

Core Image Library Member Space on a CKD Device 221 

Relocatable Library Member Space on a CKD Device 223 

Module in the Relocatable Library 224 

Format of ESD Records 225 

Format of TXT Records 226 

Format of RLD Records 227 

Source Statement Library Member Space on a CKD Device 229 

Library Descriptor for Libraries on a Fixed Block Device 232 

Library Record Size Overview 239 



8 DOS/VS Librarian 



INTRODUCTION 



The Librarian is a group of programs which serve to organize and 
maintain the libraries of a DOS/VS resident system, and the private 
libraries attached to it. 

It also contains service programs to display and punch libraries or 
parts of them or display their directories. 

Libraries can reside, at the user^s discretion, on FBA or CKD devices. 
The I/O function for different disk storage types is done in different 
phases called twin phases which differ in their I/O logic. The phase 
names follow this naming convention: 

phasename - function performed for CKD or for both types 
phasenameF - function performed for FBA 

For CKD phases in the librarian, rotational position sensing is 
provided. This support is activated or deactivated depending on 
supervisor option and device. 



§£3§fiization Programs 

COPYSERV is fetched by job control when the // EXEC COPYSERV statement 
is read. The main functions of this program are to compare the 
directory entries of the current libraries with those of the new 
libraries and to prepare corresponding copy statements automatically 
and in sorted order for inclusion in the CORGZ job stream. The use of 
COPYSERV is especially advantageous for the installation of a new 
release of DOS/VS. COPYSERV does not support FBA. 

CORGZ is fetched by job control when the // EXEC CORGZ control 
statement is read. Its major functions are to: 

• — create a new SYSRES, 

— create private libraries, 

-- copy SYSRES either selectively or completely, 

— merge from one library to another, either selectively or 
completely. 

After completing the copy run, the CORGZ program fetches $LIBSTAT to 
print the system status report of the new SYSRES or of the private 
files. 



lk£ Maintenance Program MAIJO 

The MAINT program is fetched by job control when the // EXEC MAINT 
statement is read. The various phases of this program catalog, 
delete, or rename elements and update, reallocate, or condense the 
libraries. 



Service Programs 

The librarian contains serveral programs to display and pinch parts or 
all of the different private or system libraries or to display their 
directories. Following is a list of these programs and their 

respective functions* 

Introduction 



DSEBV: display the directories of system or .private libraries either 
unsorted (DS.PL.Y) or sorted in alphameric sequence (DSPLYS) . 

CSER¥: display and/or punch phases, programs* or all, of a core image 
library. 

RSERV: display and/or punch modules, programs, or all, of a 
relocatable library. 

SSERV: display and/or punch books, sublibraries, or all, of a source 
statement library. 

PSERV: display and/or punch procedures or all of the procedure 
library. 

In addition there are some auxiliary programs used by other components 
when dealing with the libraries: the transients $$BOPNLB and $$BSYSWE, 
the phase $IJBLBSL, and numerous internal macros of which only two, 
DTFSL and DTFPL, contain executable code. 

$$BOPNLB supplies to the calling program the disk address and 
status of the source statement and the procedure 
libraries. 

$$BSYSWR updates the address of the label information area and of 
the procedure library after a reallocation of the system, 
in the label area ACBs. 

DTFSL/DTFPL retrieve members from the source statement and from the 
procedure libraries. 

$IJBLBSL accesses the source statement and the procedure library 
when requested by programs via the two preceding macros. 
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METHOD OP OPERATION 



I/O ACCE SS TO LIBRA RIAN FILES 

SYSIPT,SYSLST, and SYSPCH are accessed via DTFCP r GET, PUT. Libraries 
are opened for input or output via DTFCP or DTFPH and accessed within 
the phases by their own I/O. They support RPS where appropriate, 
depending on supervisor option and device. Following is an overview 
showing which libraries are serviced by which librarian phases: 



Method of Operation 11 



r ■— ■— " "" """"■ " - " 

f I IPT \ PCH r LST | LOG | RES | CLB | RLB } SLB \ SYS | SYS |SYS \ SYS 
I 1 1 1 1 II 1 1 1 000 | 001 | 00 2 | 003 


| COPYSERY | | OUT \ OUT | | IN . | IN | IN | IN | J I I IN 
f CORGZ I IN | | OUT | | IN | | | II I I 

| CORGZ3/F I I I I I I/O | | OUT | OUT | IN I IN | I/O | 

[ CORGZ6/F I | | \ r I/O | OUT \ If I | I/O | IN 

1 \ \ \ \ \ \ \ \ \ I 1 1 

| CORGZ7/F 1 1 1 1 | IN | | OUT | OUT | | | OUT | OUT 


| flAINT | IN | | OUT | OUT | I/O | I/O | I/O | I/O 1 1 1 1 
\ NAINTCL | IN | \ OUT \ OUT \ I/O | I/O f I/O | I/O | | | 1 
| ttAINTCN/F | | 1 OUT | OUT | I/O | I/O | I/O | I/O (III 
| BAINTR2/F .1 IN | | OUT | OUT | I/O | | I/O | | | | » 
| AAINTS2/F 1 IN | \ OUT | OUT | I/O \ | | I/O | \ \ \ 
| HAINTP2/F | 11 | | OUT | OUT | I/O I I I 1 1 I I 
| MAIKTDR/F 1 I 1 OUT | | I/O | | I/O | I/O 1 1 I I 
\ MAINTA/F' | | r OUT | OUT > I/O I | I I I I | 
| ttAINTUP/F | IN | | OUT | OUT | I/O { | | I/O | | | 1 
| ILIBSTAT | \ \ OUT | | IN - | IN | IN | IN | | | | 
| $BAINDIR/DIF| f | OUT | OUT | I/O | I/O | | > ' 1 1 1 


f DSSRV f IN | 1 OUT | | IN | IN | IN | IN | | | | 
| C5ERV | IN | OUT \ OUT | | IN | IN | I I | | 1 
f RSERV | IN | OUT |-0UT | ) IN \ \ IN | | | | I 
f SSERV | IN | OUT | OUT | | IN | | ■■ 1 IN | | I 1 
| PSERV | IN J OUT | OUT | | IN | | | | \ \ \ 
| $$BSYSI^R | | | | | IN | | 1 1 1 1 1 
| $$BOPNLB | | If | IN | | | IN | \ | | 
f DTFSL f 1 1 1 1 III 1 1 1 1 
f SIJBLBSL | | f | | IN | | | IN | \ \ | 



Figure 1. I/O Flow in Librarian Phases 
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ORGANIZA TION PROG BAMS 

This section presents the copy service program (COPYSERV) and the copy 
program (CORGZ) . 



THE COPYSERV PROGRAM, CHART 01 



Functi on of COPYSERV 

COPYSERV is a one-phase program that is fetched from the CIL when the 
// EXEC COPYSERV control statement is read by job control. 

The program compares the directory of a current library with that of a 
new library and produces copy statements in sorted order on SXSPCH for 
any current library element not yet contained on the new library. 
These statements can then be used as input to the CORGZ program which 
merges the missing elements to the new library. This can also be done 
collectively for all system libraries together. The following control 
statements are produced, as reguired: 

COPYC phasename,phasename,. . . 
COPYR modname ,modname, . . . 
COPYS bookname,bookname, . .. 
COPYP procname,procname, . .. 

COPYSERV also records the results of the comparison on 5YSLST for a 
printed output of the COPYSERV run. 



Output of COPYSERV 

The printout consists of copy statements for the elements which are 
not in the new system pack, the number of directory entries required, 
and the number of library blocks needed to accommodate the programs, 
modules, books, or procedures that are to be merged by CORGZ. Figure 
2 shows a sample COPYSERV printout. 
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COPYR CARDS FOR MERGE TO NEW SYSRLB PACK 



// EXEC CORGZ 
MERGE RES,PRV 
COPYR $$A$IPLR,$$A$PLBF,$$A$PLBK,$$A$SUPS,$$A$SUPX,$$A$SVA,$$ABERAA 
COPYR $$ASERAB,3$ABERAC,$$ABERAD,$$ABERAE,$$ABERAF,$$ABERAG 
COPYR $$ABERAH,$$ABERAI,$$ABERAN,$$ABERAO,$$ABERAQ,$$ABERA2 



COPYR IPKQA r iPKRA r IPKRB,IPKRC f IPKSA;iPKSB r IPKTA # IPKVA r IPKVB 
COPYR IPKVD r IPKVE r IPKVP r IPKVG r IPKVI r IPKVK # IPKVtt # PPGPRINT y XJWSARST 



3A03I RELOCATABLE LIBRARY 



1,793 NEW DIRECTORY ENTRIES REQUIRED, 
17,753 NEW LIBRARY BLOCKS REQUIRED 



Figure 2 . Printout Produced by COPYSERV 



Besides copy statements, COPYSERV also produces the following 
statements for inclusion in a CORGZ jobstream: 

// EXEC CORGZ 
MERGE xxx, yyy 
[Copy statements] 
/* 
/& 



Sequence of Operation of COPYSERV 

The COPYSERV program: 

• Opens SYSLST and SYSPCH and the libraries involved in the 
comparison, 

• Prints and punches 

the CORGZ and MERGE statements, 
the COPY (x) statements 
for the libraries involved, 

• Compares private libraries, if there are any, in the same way, 

• Closes all files. 



14 DOS/VS Librarian 



THE CORGZ PROGRAMi 



Function of CORGZ 



The copy program selectively or completely copies the system residence 
onto another disk pack and can define the limits for the new disk pack 

(allocation) . It also creates private core image/ relocatable, and 
source statement libraries and can merge from one library to another 
either selectively or completely. All $ phases of the core image 
library, the partition standard (PARSTD) , and the standard label 

(STDLABEL) tracks of the label area, are first copied 
automatically on an ALLOC statement. 



Calling Structure of CORGZ 



The CORGZ program consists of seven phases, 
calling structure of those phases. 



Figure 3 shows the 
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Note: There is communication between the phases C0RGZ7 and C0RGZ7F 
because these phases process the NEWVOL command which can have output 
to a device type different from the type of SYSRES . An FBA SYSRES can 
have output to a CKD disk and vice versa. 



Figure 3. CORGZ Program Calling Structure 
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Partitio n Layout of CORGZ 



CORGZ, the root phase* contains tables and switches necessary to the 
interface between its related processing phases. The partition layout 
for CORGZ phases is illustrated in Figure h„ 



CORGZ j 

Root Phase S 



IOTABLE -Table of system 

directory records, 

register save area, and 

switches 
Error message list 
I/O tables for device type 

and constants 



CORGZEND 

Initialization Routine 



CORGZ 



-load address - 



CORGZ 3 



CORGZ 6 



CORGZ 7 



CORGZ 3F 



\ 



CORGZ 6F 



\ 



-^ 



CORGZ 7F 



Figure 4. CORGZ Program Partition Layout 
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I/O Flow Of CORGZ 



Figure 5 shows the I/O flow for all CORGZ phases. 



F- r h\ 



CORGZ 



mJ SYSLST / 



I — +J SYSRES / 



SYSRES 



CORGZ6 




SYS003 



SYSCLB 






SYS002 




Figure 5. CORGZ I/O Flow 
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CCW Chai n ing Algorithm i n the CORGZ Program 

The following algorithm is used for reading and writing members of 
libraries qn CKD devices. 

Three buffers are used to permit parallel reading and writing 
operations. If sufficient space is availble, the buffer size used is 
egual to one track. If the •PROM 1 and l T0 i devices have different 
track capacities, the buffer size is egual to the capacity of the 
larger track. While data is being read into one of the buffers, other 
data is being written out of a previous buffer. The process wraps 
around from the third to the first buffer. 

CCW chains are built to transfer as much data as will fit into one 
full track. This is equivalent to one full buffer except when either 
the •PROM* or § T0 • device has a smaller track capacity than the other 
device. In that case, the CCW chain for the smaller device will 
transfer less data than is required for one full buffer. Subsequent 
CCW chains will also transfer one full track of data although the data 
may occupy space in the adjoining buffer. The adjoining buffer may be 
the first buffer if the CCW chain began in the third buffer. 

If the members being read are adjacent to one another on the same 
track, a single chain will transfer the complete track. Otherwise, 
separate chains are built for each member. This may happen either by 
previous deletion of individual members or in a selective copy run. 



Sequence of Operation in the CORG Z Program 

ROOT PHASE CORGZ, CHARTS 2 TO 3: The // EXEC CORGZ job control 
statement loads arid executes the root phase CORGZ. The prime 
functions performed by this phase are: 

• Open SYSIPT and SYSLST. 

• Open requested files. 

• Initialize tables to reflect the device type. 

• Read system directory records for starting addresses of the core 
image, relocatable, source statement, and procedure directories. 

• Read the library descriptor records (first record of a directory} 
for library and directory information. 

• Read and analyze control statements and fetch the appropriate 
phases. 

• Give a status table to SLIBSTAT to have the required status report 
printed. 

P HASE C0RGZ3/F, C HARTS 4 TO 6 , 12 TO 14: C0RGZ3 and C0RGZ3P process 
COPYR,COPYS,COPYP, and COPYI statements as follows: 

• Process the operands on the copy statement for the library 
concerned. 

.• Set up tables for correct library and directory copy. 

• Set proper status report switch. 

• Copy the desired elements from the library concerned. 
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PHASE C0 RGZ6 /F, CHARTS 1 TO 9, 15 TO V7: CORGZ6 and CORGZ6F process 
the COPYC statement as follows: 

Set up TO and F^OM file operands and check that the private core 
image library is not otherwise assigned 

Sort and copy all $-phases, after an ALLOC statement is processed 

Copy or merge the phases as requested in the copy statements 

Fetch $MAINDIR to update the •TO 1 file directory 

Set the proper status report switches 

PHASE C0 R6Z7 /F, C HARTS JU) TO VL, 18 TO J9 : C0RGZ7 or C0RGZ7F perform 
the following functions. 

If creating a new system residence file: 

• Process operands on ALLOC statement 

• Format the core image library and all directories 

• Build tracks and 1 for SYS002 and the label area 
If creating a private library: 

• Process operands on NEWVOL statements 

• Format new private library directories 

• Generate system directory records at the beginning of private 
library directories 



THE MAINTENA NCE PROGRAM MAINT 

Function s of the MA INT Progra m 

The functions of the MAINT program are as follows: 

Condense function for all libraries 

Condense limit setting for all libraries 

Catalog function for all libraries (core image library via 
SMAINDIR/F called by SLINKEDT) 

Rename and Delete functions for all libraries 

Reallocate function for all system libraries 

Update statements in the source statement library 
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The phases of the MAINT program are presented in the following order: 



MINT 

S5AINTQL 

MAISTCN/F 

-H&IHTR2/F 

MAINTS2/F 

HAINTP2/F 

MAINTDR/F 

J5AINTA/F 

MAINTUP/F 

$LIBSTAT 

$MAINDIR/DIF 



root phase 

set condense limits 

condense libraries 

catalog relocatable library 

catalog source statement library 

catalog procedure library 

rename or delete any library 

re-allocate libraries 

source statement library single statement update 

print status report 

maintain core image directory and SDLs. See the 

description of that phase for details. 



For the relationship of twin phases (with or without final F) see the 
Introduction of this manual. 



CALLING STRUCTURE OF MAINT 



The program has the following calling structure: 
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Figure 6. MINT Program Calling Structure 
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PARTITION LAYOUT OF MAINT 



Figure 7 shows the partition layout of the MAINT program where the 
root phase stays in core together with varying processing phases • 
$LIBSTAT X and $MAINDIR/$MAINDIF as well as $IJBLBSL are located in the 
SVA and do not appear in the partition. 



MAINT 
root phase 



Initialization 



MAINTCL 



MAINTCNorCNF 



MAINTR2orR2F 



MAINTS2orS2F 



MAINTP2orP2F 



MAINTDRorDRF 



MAINTAorAF 



MAINTUPorUPF 



Figure 7. MAINT Program Partition Layout 



SEQUENCE OF OPERATION OF INDIVIDUAL MAINT PHASES 



MAINT Root Phase, C harts 20-23 



The root phase consists of 9 modules: 



1 . IJBHIN Initialization (overlaid) 

2. IJJCPD1N - LIOCS I/O module 
3. 
4. 
5. 
6. 
7. 
8. 
9. 



IJBMUP - Update dislc address 

IJBMIO ■- Disk I/O 

IJBMCS - Control statement read and scan 

IJBLBC - Librarian error routine 

IJBLBA - Analyze control statement and fetch processing phase 

IJBMDU - Update directory 

IJBMDS - Scan directory 
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In these it performs the following: 

• Opens SYSIPT and SYSLST and the private libraries if there are any 
assigned. 

• Determines the device type of the libraries and sets up INITABLE*. 

• Reads the control statement. 

• Displays the control statement on SYSLST. 

• Analyzes the operation field of the control statement, 

• Fetches or branches to required processing phases. 

While the processing phases are operating, they make use of the 
following services located in the root phase: 

• Scan directories (CKD phases only) 

• Write error messages 

• Perform disk I/O (CKD phases only) 

• Update library descriptors and directory records. (CKD phases 
only) 

• Update disk addresses for directory and mbraber read and write. 
(CKD phases only) 

After the processing phases have finished, the root phase: 

• Branches to $LIBSTAT to have the status of updated libraries 
printed 

• Gives EOJ 

• The initialization table is specified in the module IJBLBA and 
contains device characteristics of the libraries which are filled in 
by the module IJBMB. Other modules of the root-phase- MAINT and all 
other phases of the MAINT program access this table. Figure 13 in the 
Data Are^s section shows its format and contents* 



Phase MAINTCL, Ch art 24 

The control statement which causes MAIKTCL to be called is 

C0NDL CL=n,RL=n,SL=n,PL=n 

where: n=5 digits for CKD 
9 digits for FBA 

ttAINTCL sets condense limits for all or any of the libraries in the 
respective library descriptors. If condense limits already exist from 
a previous COHDL statement these condense limits are changed to the 
limits specified in the new CON DL statement. The set condense limits 
function is performed for system and private libraries. HAINTCL 
returns control to the root phase at CSSTART after all operands of the 
control statement are processed or after certain error conditions have 
been met. 
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£il§se HAINTCN or HJUUn;CH£# Charts 25-29 

The phase is fetched by the root phase when a control statement 
requesting a condense or reallocation function is read. The phase 
condenses any or all of the libraries and their directories. The 
phase: 

• Scans for library operands 

• Initializes for the requested library condense 

• Condenses the directory and member space 

• Updates the library descriptor 
Exits from MAINTCN or MAINTCNF are: 

• Fetch MAINTA if an ALLOC was read, 

• Return to MAINT to read the next statement if a CONDS statement 
was read. 

During a condense or reallocation action all other access to the 
libraries has to be stopped. Therefore MAINTCN/F and MAINTA/F call 
P10CS to: 

• Mask attention if bit 6 of the linkage control byte (displacement 
57 of the communications region) is on. This bit is turned on and 
off by both programs for the system CIL. For a private CIL, bit 5 
of the job duration byte is set during condense. 

• Enter the system into a 'hard wait 1 when an I/O error occurs on 
SY5RES, or when updating the core image library. The indication 
X*FF' is then set in register 11 and is stored in low real 
storage. 



Phase MAINTRJ or MAI32£2Fr Charts 30 to 31 

MAINTR2 or MAINTR2F catalog modules to the relocatable library on 
SYSRES or SYSRLB as determined from INITABLE in the root phase. 

To do this the phase: 

• Finds out if the relocatable library is allocated 

• Deletes possible duplicate modules in the library (for CKD only) 

• Reads statements from SYSIPT 

• Analyzes them for type 

• Builds the respective records for each type 

• Checks for more statements from SYSIPT 

• Completes cataloging on finding the END statement 

• Deletes possible duplicate modules in the library (for FBA only) 
® Updates the library directory 

• Returns to CSSTART in the root phase 
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£M§e MII1§ 2 or MlIfilS2F, Charts 32 to 33 

MAINTS2 or MAINRS2F catalog books to the source statement library on 
SXSRES or SYSRLB as determined from INITABLE in the root phase. To do 
this the phase; 

Finds out if the library is allocated and if library and directory 
are not full 

Scans the booknarae and deletes possible duplicates in the library 
(only for CKD) 

Updates the library descriptor record 

Reads, compresses, and catalogs the book 

Deletes possible duplicates in the library (only for FBA) 

Updates the library diredtory 

Returns to either EOF or to read another statement. 



Phase MAII1E2 or IAJI1£2F, Charts 34 to 35 

The phases catalog procedures into the procedure library when the root 
phase encounters a CATALP statement. The phase MAINTP2 does the 
following: 

1. If the procedure library is allocated and not full, 

2. scans the control statement 

3. Looks for the procedure name in the directory 

4. Deletes the directory entry (if there is one already) 

5. If there is enough space in the library, 

6. catalogs the procedure 

7. Updates the directory when EOP is detected 

8. Returns to CSSTART in the root phase. 

For MAINTP2F, the sequence of steps is 1, 2, 5, 6, 3, 4, 7/ 8. 

Ifease MAINTDR or MAINTDRF, Charts 36 to 3 9 

The phase deletes and renames from the relocatable, source statement, 
and procedure library directories as determined from INITABLE in the 
root phase. For a core image library, the phase creates a stow Table 
for updating the directory via phase $MAINDIR or $MAINDIF. For the 
format of the Stftw Table see the section Data Areas. 
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Individual phases, modules, books, or procedures can be renamed in the 
core image, relocatable, source statement, or procedure libraries. 
The directories are always updated after a rename request. If, on the 
rename function, the new name is already in the directory or the old 
name is not in the directory, an error message is issued to SYSLST. 
On a valid pair of operands, the new name simply replaces the old name 
in the directory. In either case, a check is then made for more 
operands on the control statement. If there is another operand, 
processing continues in this phase. If there are no more operands, 
the program branches to CSSTART in the MAINT root phase to read 
another control statement. 



Phase HAINTA or Ml&lM* Charts 40-4 3 

When a control statement requesting system reallocation is read by the 
root phase, MAINTCN or MAINTCNF is fetched to condense all system 
libraries before reallocation. Then SYSRES is reallocated by 
redefining the sizes of the libraries and their directories. 

MAINTA uses the values specified in the ALLOC statement and subtracts 
the directory size specification from the space allocated to the 
library. This differs from the ALLOC statement used with CORGZ where 
the status report reflects the total directory space allocated to the 
library and the directory. 

The phase: 

Builds the reallocation table 

Updates all directories 

Moves all libraries and the label information area 

Updates the label area control blocks in the SVA (via $$BSYSWR) 

Returns to module IJBMCS in the root phase. 

For the reallocation tables, see the section Data Areas. Figures 8 
and 9 show the method used to reallocate SYSRES. 
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(Begin N 
Pass! J 




(Endof ^\ 

Reallocation J 



In this example, reallocation is accomplished within the disk storage 
area allocated to SYSRES. 



Figure 8. Reallocation of SYSRES by'ttAIKTA 



Notes to Figure 8: 

1. Pass 1 is a forward scan of the directories and libraries 
beginning with the core image library. 

2. The core image directory will never be moved from its 
predetermined starting disk address (Cyi 1, track 0) by MAXNT&. 

3. On pass 1, all libraries and directories that must be moved to a 
lower disk address are moved. Only active blocks are moved. 

4. On pass 2, all libraries and directories to be moved to a higher 
disk address are moved. Only active blocks are moved. 

5. To format an unused track., the key field and the data field are 
written in each unused block of the directory or library. The 
data field is blank except for an asterisk in byte position 1. 

6. The relocatable library, the source statement library, and the 
procedure library are not formatted. 
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c 



Begin 



THS * 



3 



:$ t-Note 1 




SYSRES 



Begin of to f. : :. : 

PASS3 "vi: t Note 4 



End of 
Reallocation 



Figure 9. Reallocation of SYSRES by MAINTAF 



Notes to Fig ure 9: 

1. Pass 1 is a forward scan of the reallocation table, from lower 
disk addresses to higher disk addresses, beginning with the slot 
in the table for the core image directory. Any active blocks in 
the directories, or member space, or label area which must be 
moved to a lower disk address are moved. 

2. The core image directory will never be moved from its 
predetermined starting disk address at block 10. 

3. Pass 2 is a backward scan of the reallocation table, from higher 
disk addresses to lower disk addresses, beginning with the slot in 
the table for the label area. Any active blocks in the label 
area, or member spaces, or directories which must be moved to a 
higher disk address are moved. 

4. Pass 3 is a scan of the reallocation table for newly created 
directories and for those directories whose member spaces have 
moved. Only directories are handled in this pass. No action is 
taken for member spaces or the label area. 
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Phase MAINTUP or KAINTUPF, Ch arts 44 to 46 

The phase is fetched by MAINT root phase when an UPDATE statement is 
read. It adds statements to. deletes statements from, or replaces 
statements in books in a source statement library. 

The phase: 

• Checks if- the 'source statement library is allocated, has entries, 
and is not full. 

• Finds the book name in the source directory, first private and 
then system. 

• Determines the kind of update reguested 

» Processes the subco^trol statements )ADD, )REP, )DEL, ) END 

• Returns to the MINT root phase either* after an error 
unsuccessfully, or after having updated the directory 
successfully. 



THE SERVICE PHASE $LIBSTAT, CHART 47 



Function of $LIBSTA T 

The phase is called by the librarian programs and by the linkage 
editor to display the status of one, some, or all libraries. The SVA 
status can also be displayed. The calling program indicates which 
libraries should be displayed by means of the status table shown in 
the Data Areas section. 



S equence of Operation of SLIBSTAT 

$heB $LIBSiAT is called the following parameters are transmitted: 

Register - address of status table 
1 - entry point of SLIBSTAT 
14 - return address 
13 - address of work area in user partition 

All registers are saved and restored. $LIBSTAT is resident in the 
SVA. The user save area, workareas for variables and buffers are in 
the partition. 
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For $LIBSTAT, CKD and FBA code is in one phase. 
The phase: 

• Initializes control blocks for CKD or FBA 

• Prints the header 

• Reads the volume 1 label of the disk pack on which the library 
resides to obtain the volume serial number. All other data 
required for the status report is contained in the library 
descriptor record. 

• Uses the logical unit and the disk address from the status table 
entry to read the library descriptor record of the indicated 
library. 

• Builds and prints: Status line 

Directory line 
Library line 

• Prints SVASTAT 

• Returns to the caller 



THE SERVICE PHASE SMAINDIR OR SMAINDIF. CHARTS 48 TO 69 



Junction of SMAINDIR/SMAINDIF 

The phase is used to service core image libraries, their directories, 
and the system directory lists. Both versions of the program provide 
one, or any combination, of the following services: 

Build system directory list (SDL) 

Build second level directory (SLD) for *BA devices 

Re-initialize the library descriptor record and the SLD whet a 
private core image library is deleted 

Build or update a core image directory or delete entries from it 

Update a core image library descriptor record 

Update the RAS load list in the supervisor. 

The phase is used by librarian phases, IPL, job control, and the; 
linkage editor. 

Figure 10 gives an overview of the program structure for both phases. 
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Sequence of Opera tion of $MAINDIR/$HA INDIF 



************ 

* MAINFLOW * 

************ 

I 



Set up required pointers 
and counters. 
Store time of day. 
Initialize required con- 
trol fields. 



I Check for the type of service j 
I requested and provide this | 
j service by executing the | 

I appropriate segment | 

\ as shown: =======« 



FINISH 



Dequeue FETCH requests. 

Print diagnostic messages, 

if any. 

Load phases in the SVA as 

required. 



I 

V 
************ 

.* END * 

************ 

The program executes with storage 
protection key 0. 



r "" ,M ■ ' i 

|Request» SDLSVA j 
j code | | 


j I, B, | Build and update the SDL. | 
| M, N | Service is provided for IPL when j 
| | SET SDL is issued or for job | 
| j control when a phase is to be j 
| j loaded in the SVA • j 


| | SCLVLDR ($MAINDIF^only) | 
\ | Build a second level directory. j 
| E i Service is provided for i 
[ | // ASSGN SYSCLB | 
| } to job control. j 


» | DELETALL (SMAINDIF only) | 
1 j Delete a complete PCIL. | 
| D | Service is provided for | 
| | // EXEC MAINT | 
| \ DELETC ALL | 


} | MAINT | 
| I Update the core image directory | 
| | and, as necessary, the SLD, SDL, | 
| | and RAS load list. | 
| \ Service is provided for | 
| C J // OPTION CATAL | 
| | // EXEC LNKEDT | 
1 1 or j 

| » // EXEC MAINT | 
j D | with DELETC ... | 
\ R \ or with RENAMC ... | 
\ U | or with CONDS CL | 
1 | or | 
| | // EXEC CORGZ | 
f C | COPYC | 


| | REALLOC I 
| | Update disk addresses in the | 
| X | core image directory, SDL, and | 
| \ RAS load list. | 
| j Service is provided for j 
| J //' EXEC MAINT | 
| | ALLOC CL= ... | 


| | OPTLINK | 
| i Write one or more entries in lastj 
| L | directory record and insert this | 
| | record *s address in the FETCH | 
| | table . | 
| | Service is provided for j 
J I // OPTION LINK I 
| 1 // EXEC LNKEDT | 


| | LCCALL | 
| | Update the library descriptor | 
\ F | on last call of $MA1NDIF for a | 
| } library condense request. j 



-> ^ 



Figure 10. Sequence of Operation in $MAINDIV$MAINDIF 
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Input/Output O perations 



For phase SMAINDIR, reading from and writing to disk is done in 
procedures GETINP and PUTOUTP; for phase $iaAINDIF, this is done in 
procedures RDDIRREC and WRDIRREC. The program uses the EXCP level 
interface to the physical I/O routines of the supervisor. 

ACCESS TO INPUT/OUTPUT AREAS IN IMAINDIR. In order to read the 
descriptor record and the directory entries of a CIL from disk, the 
procedure GETINP uses the pointer: 



INPTR 



giving the address of the start of the input area. 



The size of the input area used is 17 blocks. 

In order to write the descriptor record and the directory entries of a 
CIL onto disk, the procedure PUTOUTP uses the pointer: 



OUTPTR 



giving the address of the block to be written. 



Linkage: 

Register points to STOWTAB.* 
Register 1 contains entrypoint. 
Register 13 points to an area used for: 

1. User save area (72 bytes) 

2. Pseudo •automatic 1 storage. Size about 7 K 

3. Array •TABIN 1 . max. size 1 K. 

(These areas have to be aligned on doubleword) 
Register 14 is return register. 
Register 15 contains the return code; 
See Diagnostics section. 

ACCESS TO IN PUT/OUTPUT AREAS IN SMAIND IF, For reading from disk, 
procedure RDDIRREC uses a pointer and control fields as follows: 

RDBUFADR pointer to the read-buffer area. 
RDBUFLEN length of the read-buffer area. 

RDBLKNR relative block number of first record that is to be 
read from disk. 

For writing onto disk, the corresponding pointer and control fields 
used by procedure WRDIRREC are: 

WRBUFADR pointer to the write-buffer area. 
WRBUFLEN length of the write-buffer area. 

WRBLKNR relative block number of first record that is to be 
written onto disk. 

Linkage: 

Register points to STOWTAB.* 
Register 1 contains entrypoint. 
Register 13 points to an area used for: 
(max. total size about 24 K) 

1. User save area (72 bytes) 

2. Pseudo •automatic* storage. (4 K) 

3. Buffer Space (16 K) 

4. Stow Table extract •TABIN 1 . 
Register 14 is return register. 

Register 15 contains the return code. 
See Diagnostics section. 

* The Stow Table which is built by the calling routine contains all 
the information the phase needs to identify and execute the requested 
function • 
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The Stow Table has the following structure: 



I Header (12 bytes) | 

I entry (18 to 30 bytes) 

| entry 



The header has the label STOWREG for CKD and OWPHDR for FBA. For 
formats of header and entry see the Data Areas section. 

The Stow Table mentioned above is not suitable for the checking of 
entries for proper sequence by phase names and processing them in 
sequence. The program, therefore, builds and uses an array TABIN for 
this pupose. The section Data' Areas shows the layout of a TABIN 
entry- The array contains one such entry for each entry in the Stow 
Table. 

Other areas referenced or accessed by the phase are: 

• The FETCH table 

• The SDL and SLD 

• The RAS load list, which is located at the beginning of the 
RAS monitor table. 

• Core image library directory entry and descriptor record. 



SERVICE PROGRAMS 



FUNCTIONS OF THE SERVICE PROGRAMS 

This section contains the programs which display and punch DOS/VS 
libraries and their directories. Some auxiliary transients and macros 
are also described. 

These programs are presented in the following order: 

DSERV program: displays on SYSLST the contents of the directories 
of any or all libraries on SYSRES and the private directories as 
requested, 

CSERV program: displays and/or punches phases from the system 
and/or private core image libraries. 

RSERV program: displays and/or punches modules from system and/or 
private relocatable libraries. 

SSERV program: displays and/or punches blocks from the system 
and/or private source statement libraries. 

PSERV program: display and/or punches procedures from the 
procedure library. 

$$BSYSWR transient: allows the calling phase to write on SYSRES. 
Updates the label area control block in the SVA. 

$$BOPNLB transient: opens the source statement and the procedure 
libraries. 
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• DTFSL and DTPPL macros: allow programs like Assembler or COBOL to 
access a source statement library or procedure library. 

• Phase $IJBLBSL: Allows access to source statement and procedure 
libraries. It is called via the DTFSL or DTFPL macros. 



THE DSERV PROGRAM, CHARTS 70 TO 76 



Calling Structur e of DSERV 

The program consists of the following phases: 

DSERV — root phase 

DSERVC — contain device specific subroutines used by the 
DSERVF processing phases 

DSERV 1 — analyzes control statements for library and function 
operands 

DSERV2/F — prints a core image directory 

DSERV3 — sorts relocatable, source, and procedure directories for 
CKD devices 

DSERV4 -- prints relocatable and source directories for CKD devices 

DSERV5 — prints procedure directory for CKD devices 

DSERV 3F — sorts and prints relocatable, source, and procedure 
directories for fixed block devices 

DSBRV6 — prints the SDL 
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The calling structure between these phases is shown in Figure 11: 
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Figure 11. DSERV Program Calling Structure 



P artitio n Layout of DSERV 



The partition layout for the DSERV program is shown in Figure 12: 
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Figure 12. DSERV Program Partition Layout 
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Sequence of Operation of the DSERV Program 

ROOT PHA$E DSERV WITH DSERVC AND DSERVP: DSERV functions as root 
phase. 

• It initializes areas, control fields, and pointers. 

• Determines the load point for overlay phases. 

• Opens SYSLST and SYSIN. 

• Determines library device types. 

• For a CKD device, loads DSERVC. 

• For an FBA device, loads DSERVF. 

• Fetches appropriate overlay phase (DSERV1 on first time through). 

P HASE DSERV1 

• Fetches $LIBSTAT to build the status table on first time through. 

• Reads and analyzes the current control statement. 

• Fetches a processing phase which builds and prints the directory 
output according to the following list: 



1 ■ ■'■ ■ " 

I DSERV phages producing directory list output: 


| | Phase name if library is on | 

| Operand | CKD device | FBA device | Summary of phase output 


| CD | DSERV2 | DSERV2F | A list- of phases cataloged in the pertinent 
I | | | core image library . 
1 ' + + ■ + ' 


| PD | DSERV 3 and | | A list of procedures cataloged in the 

I | DSERV5 | | procedure library, sorted if so requested. 

I + 1 1 - 


| RD | DSERV 3 and | DSERV3F | A list of modules cataloged in the pertinent 
| | DSERV4 | 1 relocatable library, sorted if so requested. 


| SD | DSERV3 and | | A list of books cataloged in the pertinent 
| | DSERV4 \ | source statement library, sorted it so 
}} I | requested. 


| TD | DSERV 2 | DSERV2F | A list of phases cataloged in the pertinent 
| f || core image library and having a name 
| | \ | starting with . character '$• 


| SDL | DSERV6 | A list of phases whose directory entries are 
| | (For both CKD and FBA | included in the SDL. 
} | devices) | 



| The above named phases use subroutine PRIST in root phase DSERV to print the 
| directory list output. 

i , . , — . — , , . 



I/O Flow of the D SERV Program 



If a private library is assigned (SYSCLB, SYSRLB, or SYSSLB) , its- 
directory is printed rather than that of the corresponding library 
from SYSRES. If there are no active entries in any private library, 
an error message is printed. 

Besides the control statements, which the program reads from SYSIPT 
(or SYSIN) , the program uses as input the directories of the libraries 
for which a display has been requested. 

The program builds its output records, including messages, in area 
PRIHTB, using symbolic addressing. When a line is complete, the 
program passes the address of the area to logical IOCS (DTFCP) for 
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printing that line on SXSLST. 

The directory list output is always preceded by a library status 
report. The program retrieves the required information from the 
directories of the various libraries and uses this information to 
build the status table at area STATTAB and to print the report based 
on the information contained in that table. 



THE CSERV PROGRAM , CHARTS 77 TO 78 



Seque nce of Operation 

The CSERV program consists of the phases: 

CSERV — root phase which 

• reads control statements 

• calls processing phases 

• prints and punches 

• terminates the program. 

CSERVC — which do the device dependent reading from the libraries 

or into storage from either CKD or FBA devices. 

CSERVP 

The two phases reside together in the partition. 



I/O Plow of the CSERV Program 

Control statements invoking the CSERV program are read from SYSIPT. 
CSERV will refer to the private relocatable library first and if th€ 
phase is not found there or SYSCLB is not assigned it will use the 
system core image library. Error messages and displayed phases are 
written to SISLST. If punched output is desired a /* is provided. 



THE RSERV PROGRAM , CHARTS 79 TO 8 1 



S equence of Operation 

The RSERV program consists of two phases, the root phase RSERV and 
RSERVC or RSERVF whose distribution of function is the same as for the 
CSERV program (see above). 

RSERV must analyze each record in the module as to type and convert 
the 160-byte records to smaller records by dividing the information in 
the variable length field. For example, one ESD record in the 
relocatable library that contains eight ESD items is punched into 
three ESD cards. The byte count field in the record must be updated 
to reflect the change in length of the variable field. 
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IZ2 £121 2l £he RSERV Program 

Control statements invoking the RSERV program are read from SYSIPT. 
The search order of the libraries is the same as for CSERV, that is, 
first the private and then the system library. 

All punched output is ejected into stacker 2. If SYSRDR and SYSPCH 
are assigned to the same device, a /* statement is not punched. The 
last RSERV control statement, which is a /* statement, is ejected into 
stacker 2. 



THE SSERV PROGRAM, CHARTS 82 TO b3 



Sequence of Opgration 

SSERV is a one-phase program. The control statement may have multiple 
operands. Each time a book is serviced, the control statement is 
checked to see if it contains another operand. If so, the operand is 
brought in and serviced. When the last operand on a control statement 
is serviced, the next control statement is read from SYSIPT. When an 
EOF (/*) condition is encountered on SYSIPT, the SSERV program is 
terminated. 



I/ O Flow of the SSERV Program 

The I/O Flow follows the same rules for control statement input, 
library search and punched output as in the RSERV program (see above) 



THE PSERV PROGRAM, CHARTS 84 TO 85 



Sequence of Op er ation 

The PSERV program is a one-phase program. The control statement may 
have multiple operands. Each time a procedure is serviced, the 
control statement is checked to see if it contains another operand. 
It so, the operand is brought in and serviced. When the last operand 
on a control statement is serviced, the next control statement is read 
from SYSIPT. When an EOF (/*) condition is encountered on SYSIPT, the 
PSERV program is terminated. 



I/O Fl ow of the PSERV program 

The control statements invoking the PSERV prorgam are read from 
SYSIPT. PSERV prints or punches form the procedure library on SYSRES. 
All punched output is ejected into stacker 2 of SYSPCH. Printed 
output goes to SYSLST. 
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THE $$BSYSWR TRANSIENT, CHART 86 



Sequence of Operation 



This transient has two functions: 

When invoked with register containing it allows to write on SYSRES 

from that partition. When invoiced with register not containing it 

updates the label area control block in the SVA with the location and 

length of the label area and with the location of the procedure 

library. 

$$BSYSWR tests for the function to be performed. For label area 
information update, it reads the system directory and places the 
information on the label area control block in GETVIS of the SVA. For 
writing on SYSRES, it sets a bit in the partition communication area. 
The transient also uses the system communication area and the SLA 
control block. 



THE $$BOPNLB TRANSIENT, CHART 87 



Sequence of Operation 



This transient provides the disk address of the respective system 
library and the status of private and system libraries as to whether 
they contain active members or not. For private libraries, the 
address has to be provided via $$BOPEN. 

With SVC 2, a control block address is passed which indicates for 
which library type the OPEN is to be done. For a private source 
statement library, the control block must also contain the address of 
the library. The phase reads the system directory to get the location 
of the system libraries. If the desired library is present the 
library descriptor record is read to obtain the member status. 



Switches used: 



OVLAYA 


DSECT 




BDCK1 


DS 


XL4 


* 






BUCK2 


DS 


XL 4 


* 






PRVSW 


DS 


X 


PROCLIB 


EQU 


X»80» 


* 






* 






PRIV 


EQU 


X»01» 


* 






* 






* 






* 






PRSSSW 


DS 


X 


ACTIVE 


EQU 


X»4Q* 


* 







DISK ADDR OF PRIVATE LIBRARY C2C1H2R 

(INPUT FRM CALLER) 
DISK ADDR OF SYSTEM LIBRARY C2C1H2R 

(OUTPUT TO CALLER) 
SWITCH BYTE 

BIT = 0: OPEN SOURCE LIB 
= 1: OPEN PROCLIB 

(INPUT FROM CALLER) 
BIT 1% PRIVATE LIBRARY OPENED 

(INPUT FROM CALLER) 

THIS BIT IS SET TO IF A PRIVATE 

LIBRARY HAS NO ACTIVE MEMBERS , 

ELSE UNCHANGED (OUTPUT TO CALLER) 
SWITCHES (OUTPUT TO CALLER) 
BIT 1: SYSTEM LIBRARY 

CONTAINS ACTIVE MEMBERS 
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THE DTFSL AND DTFPL MACROS, CHARTS tiB TO 90 



Invocation 



The following description applies to both macros although only DTFSL 

is mentioned specifically. They serve to access the source statement 

and the procedure libraries. The code of the macro is called by the 
internal imperative macros. 



FNDSL 
GETSL 



used in librarian and other programs 



NTSL 
PTSL 



used only in conjunction with GETSL 



READSL 



used in librarian programs only 



The individual imperative macros which use the DTFSL code have the 
following functions: 

FNDSL : Find a book and save its disk address if found. 

A branch address must be specified where to branch to if 

the book is not found. 

Register 1 points to a 9-byte book name. 

The address of the found book is stored in the DTFSL 

control blocks for following GETs and READs, 

GETSL : Retrieve a book sequentially (by one card with each GET 
request) . 

NTSL : If inner macros are encountered during GETSL processing. 
Note position where retrieving is to continue. 

PTSL : After processing of inner macro restore that position. 

READSL : Transfer a source statement record (160 bytes) to user 
buffer. 

NTSL returns to the caller the position of retrieving. For releases 
prior to D0S/?SE, the position is contained in register d. For 
DOS/VSE, register 1 contains the address of an entry into an internal 
stack called note word table. This table contains the disk and buffer 
addresses to which a GETSL macro returns after an inner macro has been 
executed. 

The DTFSL macro works in two modes: For releases prior to DOS/VSE* it 
allocates all necessary blocks and buffers and executes in its own 
expansion. 

For DOS/VSE, actual processing is done by the phase $IJBLBSL which 
resides in the SVA. This phase builds I/O buffers,, access blocks, and 
the note word table. The DTFSL expansion then only sets up the save 
area and the basic request list and builds the request list. 

The DTFSL is coded as follows: 

/NO \ /NO \ 

8DTFSL DTFSL 8N0TEPNT= }YESJ ,&PRIVATE= )YESj ,&ERROR=label, 

/NO \ 
&LIBR=IYESJ 



Hethod of Operation 39 



where the parameters hare the meaning: 



NOTEPNT=NO . 
NOTEPNT=¥ES 
PRIVATE=NO - 
PRIVATE=¥ES 
LBR=¥ES . ... 

LBR=NO ...... 

ERROR=LABEL 



Only FIND and GET allowed. 

FIND, GET, NOTE and POINT allowed. 

Operates on system source library only. 

Operates on private source library too. 

Special actions for librarian programs. 

Normal processing 

Entry point of error routine. 

(For I/O error and bad records) . 



§§a ue nee of Operation: 



The first macro call (FNDSL) is routed to a subroutine which sets the 
mode of operation (either prior to DOS/VSE or DOS/VSE mode). All 
following macro calls will work then in that mode. The first call 
(FNDSL) opens also the source statement library (private and/or 
system) assigned to the partition. GETSL de-compresses the 160 byte 
logical records in the source statement library to BO byte card 
images. NTSL provides the position of current processing of the GETSL 
macro. PTSL restores that position. 



Control Blocks and Switches used hj DTFSL and DTFPL. 



The control blocks for releases prior to DOS/VSE see in the expansion 
of the macros. 

For DOS/VSE, the macros use: 



the note word table 

the request list 

the access control block 

the first-time-entered-switch 



DTFSNWT 
DTFSRQL 
DTFSACB 
DTFSL 1ST 



The note word table has the following format: 



NOTE INFORMATION WORD STACK DSECT (NOT FOR PROCEDURE) 



DTFSNWT DSECT 

DS 0XL88 

DTFSNWAV DS XL4 
* 

DS 0XL84 

DTFSNIW DS 0XL14 

DTFSNWAD DS XL2 

DTFSNWCS DS XL5 

DTFSNWCV DS XL1 

DRFSNWBN DS XL4 

DRFSNWBC DS XL2 

DTFSNIWE EQO * 

DTFSNIWL EQU DTFSNIWE-DTFSNIW 

DS 5XL14 

DTFSNWSE EQO * 

DTFSNWSL EQO DTFSNWSE-DTFSNWT 

DS 0D 

DTDSNWTE EQO * 

DTFSNWTL EQO DTFSNWTE-DTFSN WT 

* » 



ADDRESS OF FIRST FREE 
NOTE WORD IN STACK 
STACK OF NOTE WORDS 
FIRST NOTE INFORMATION WORD 
DISPLACEMENT INTO DTFSACB 
CURRENT SEEK/ LOCATE ADDR. 
CURRENT SECTOR VALUE 
END ADDRESS OF BUFFER+1 
CURRENT DISPLACEM.IN BUFFER 

LENGTH OF ONE NOTE WORD 
OTHER NOTE WORDS IN STACK 

LENGTH OF STACK 
ALOGN NEXT CONTROL BLOCK 
END OF NOTE WORD TABLE 
LENGTH OF NOTE TABLE SPACE 
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This table is set up when the first FNDSL is issued and it serves as 
interface between NTSL and FT SI*. 

The request list is passed from the DTFSL to the phase SIJBLBSL and 
contains information about the reguests such as request type and 
oointers to resources. 

The access control block has the following format: 

DTFSACB DSECT 



DS 



0XL511 



DTFSABB 


DS 


0XL28 


DTPSABDC 


DS 


XL4 


DTFSABDF 


DS 


XL4 


DTFSABDE 


DS 


XL4 


DTFSABMC 


DS 


XL4 


■T^FSABaH 


D£ 


XL<4 


DTFSABMF 


DS 


XL4 


DTFSABME 


DS 


XL4 


DTFSABFX 


DS 


0XL9 


DTFSABFA 


DS 


XL4 


DTFSABFE 


DS 


XL4 


DTFSABFT 


DS 


XL1 


DTFSABSB 


DS 


0XL58 


DTFSAB$P 


DS 


XL4 


DTFSABSS 


DS 


XL4 


DTFSABS1 


DS 


XL1 


PROCLIB 


EQU 


X»80* 


PRIVACT 


EQU 


X»01» 


IJBSL 


EQU 


X»02» 


DTFSAB$2 


DS 


XL1 


SACTIV 


EQU 


XMO 1 


DTFABPSK 


DS 


XL 24 


DTFSABSE 


EQU 


* 


LDTFABSK 


EQU 


DTFSABSE-DTFABPSK 


DTFABSSK 


DS 


XL24 




DS 


OD 


DTFSABP 


DS 


0XL208 


DTFSABPS 


DS 


XL1 


DTFSFBA 


EQU 


X»80» 


DTFSPRNO 


EQU 


X*08» 


DTFSPRUA 


EQU 


X»04» 


DTFSNOAC 


EQU 


X»02* 


DTPABPIO 


DS 


XL 24 




DS 


OD 


DTFA3PCD 


DS 


XL56 


DTFABPSD 


DS 


XL24 


DTFABPRD 


DS 


XL1 




ORG 


DTFABPRD 


DTFABPBD 


DS 


XLt 



DS 



OD 



BUFFER CONTROL 
CURRENT ADDRESS IN DIR.BUF. 
ADDRESS OF DIRECTORY BUFFER 
END ADDRESS OF DIRECT. BUF . 
CURRENT ADDRESS IN MBR.BUF. 
END ADDR. OF MEMBER BUFF. + 1 
ADDRESS OF MEMBER BUFFER 
END ADDRESS OF MEMBER BUFF. 

FIX LIST FOR PRIVATE AND 
SYSTEM I/O REQUESTS 
BEGIN ADDR. IN FIX LIST 
END ADDRESS IN FIX LIST 
TERMINATING CODE FOR FIX L. 

$$BOPNLB COMPATIBILITY 
ADDRESS OF PRIVATE SOURCE 
ADDRESS OF SYSTEM SOURCE 

SWITCH BYTE 1 

$$BOPNLB CALLED FOR PROC.LB 

ACTIVE MEMBERS IN PRIVATE 

$$BOPNLB CALLED BY SIJBLBSL 

SWITCH BYTE 2 

ACTIVE MEMBERS IN SYSTEM 

CKD : SEEK ADDRESS OF BEGIN 
OF PRIVATE LIBRARY 
FBA : EXTENT/LOCATE WORDS 
TO READ LIBRARY AND DIRECT. 

LENGTH OF START ADDR. INFO. 

START ADDR. OF SYSTEM LIBR . 

ALIGN PRIVATE PART 
CONTROL BLOCK PRIVATE SRCE 
(FOR PROCEDURE UNUSED) 
SWITCH BYTE 

LIBRARY IS ON FBA DEVICE 
m PRIVATE LIBRARY EXPANS . 
PRIVATE LIBRARY IS UNASSG . 
LIBRARY CONTAINS NO ACTIVE 
MEMBERS 

IORB FOR PRIVATE LIBRARY 

ALIGN ON DOUBLE WORD 

CCW CHAIN FOR PRIV. DIRECT. 
CURRENT ADDR. IN PRIV. DIR . 
CURRENT SECTOR VALUE PRIV. 

NMBR FBA BLCKS/DIR. RECORD 

ALIGN ON DOUBLE WORD 
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DTPABPCM 


DS 


XLS6 


DTPABPSM 


DS 


XL24 


DTFABPBH 


DS 


XL1 




ORG 


DTFABPRM 


DTPABPBM 


DS 


XL1 


DTFAMPAM 


DS 


XLS 


DTFABPVM 


DS 


XL1 


DTFABPSV 


DS 


XL1 


DTFSABPE 


EQU 


* 


DTFSABPL 


EQU 


DTPSABPE-DTFSABP 




DS 


OD 


DTFSABS 


DS 


0XL208 


DTPSABSS 


DS 


XL1 


DTPABSIO 


DS 


XL24 




DS 


OD 


DTFABSCD 


DS 


XL56 


DTFABSSD 


DS 


XL 24 


DTFABSRD 


DS 


XL1 




ORG 


DTFABSRD 


DTFABSBD 


DS 


XL1 




DS 


OD 


DTFABSCM 


DS 


XL 56 


DTFABSSM 


DS 


XL24„ 


DTFABSRM 


DS 


XL1 




ORG 


DTFABSRM 


DTFABSBM 


DS 


XL1 


DTFABSAM 


DS 


XL5 


DTFABSVM 


DS 


XL1 


DTFABSSV 


DS 


XL1 




DS 


OD 


DTFSACBE 


EQU 


* 


DTPSACBL 


EQU 


DTFSACBE-DTFSACB 


DTFSCBL 


EQU 


DTFSRQLL+DTFSACB 



CCW CHAIN FOR PRIV. MEMBER SP. 
CURRENT ADDR. IN PRIV. MEMBER SP. 
CURRENT SECTOR VALUE PRIV • 

NMBR PBA BLCKS/MEMBER RECORD 
CURRENT ADDR .-1 IN MEMBER 
CURR •SECTOR VAL. MEMBER (CKD) 
RPS VALUE FOR DEVICE (CKD) 

LENGTH OF PRIV. LIBRARY CNTL 

ALIGN SYSTEM PART 

CONTROL BLOCK SYSTEM SOURCE 

OR PROCEDURE LIBRARY 

SWITCH BYTE 

IORB FOR SYSTEM LIBRARY 

ALIGN SYSTEM PART 

CCW CHAIN FOR SYSTEM DIR. 

CURRENT ADDR. IN SYST. DIR. 

CURRENT SECTOR VALUE SYST. 

NMBR FBA BLCKS/DIR. RECORD 

ALIGN ON DOUBLE WORD 
CCW CHAIN FOR SYST. MEMBER SP . 
CURRENT ADDR. IN SYST. MEMBER SP . 
CURRENT SECTOR VALUE SYSTEM 

NMBR FBA BLCKS/MEMBER RECORD 
CURRENT ADDR.-1 IN MEMBER 
CURR. SECTOR VAL. MEMBER (CKD) 
RPS VALUE FOR DEVICE (CKD) 

ALIGNMENT FOR NOTE TABLE 
END OF DTFSACB 
LENGTH OF DTFSACB 
CONTROL BLOCK LENGTH 



THE PHASE $IJBLBSL, CHARTS 91 TO 93 



Sequence of Oper a tion 



The requests to access the source and procedure libraries from a macro 
are passed in the form of a request list (DTFSRQL) which indicates the 
operation requested and points to all resources needed to complete a 
request. It works in two modess 

* when requested from compilers etc.* it searches through the 
directory (ies) of the assigned library (ies) to find a book and 
moves card image of source statements to the user card I/O area. 

• when requested from librarian programs, the phase searches the 
directory of a single library only and returns complete 160 byte 
records to the program issuing the request. 

The phase resides in the SVA. A first call from a partition causes 
the library or libraries to be opened, that is, the library addresses, 
channel programs, buffer addresses to be filled into the access 
control block located in the partition GETVIS area. The directories 
are then searched for the bookname as described above. 
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PROGRAM ORGANIZATION 



GENERAL CHARTS 



GENERAL CHARTS CONVENTIONS: 



1. A unit of programming, routine, CSECT, or phase, is contained in 
one box like this: 



XXX 



lyyy 
i 



ZZ2 



n. 

| 2. step members 



Where: xxx marks the label and routine name 

yyy says shortly what the routine does 
zzz is the reference to the detail chart (s) , if any. 
The step numbers are given from 1 to n within this 
routine only. 

2. On-page connectors are such: 



-O O- 



3. Off-page connectors are such 




Table E 



CONTROL 
3 




where: the number in the frame marks the chart from or to which we go. 
The word above (incoming) or below (outgoing) marks the label 
(routine) on that chart, the number under the word marks the 
step within the routine to which we go if it is not step 1. 
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Chart '01. COPYSERV (Detail Chart AA) 



f COPYSERV J 



COPYSERV 



INITIALIZE,THEN PRINT AND PUNCH 
CO RGZ CONTROL STATEMENTS 



AA 



1. OpenSYSLST 

2. Analyze UPSI byte setting to check 
if private libraries are involved. 

3. Open current library, new library, 
andSYSPCH. 

4. Print title line. 

5. Print and punch// EXEC CORGZ. 

6. Print and punch MERGE from, to 



CHECKTYP 



PRODUCE THE NECESSARY COPY STATEMENTS 
FOR EACH LIBRARY INVOLVED 



1. Check for library type and compare 
libraries. 

2. Produce copy statements and print 
totals. 

3. Check if private libraries are involved 
and if yes continue. 

4. Close files 



( END ) 
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Chart 02. CORGZ - Root Phase (Part 1 of 2) 



Root Phase Overview: 



CORGZ3 




( CORGZ ) 

— » — 



BEGINO 



Initial 
Processing 



STMTSCAN 











ITSALLOC/ 
ITSNEWVL 




M 


Process 
ALLOC 
NEW VOL 


\s 




COR 


bZ/ 




" 



Root Phase Process: 




BEGINO } 


i 




INITIALIZATION 




1. Open SYSLST and SYSIPT 




Z. bibnbb IS rh>A 
or CKDn 

3. Set up CCW chains to reflect 
RPSonSYSRESor not. 






4. Initialize device table with 
SYSRESdata. 




STARTR 


5. Read descriptor records of system 
libraries into IOTABLE 




6. Read a control statement into 
CARD1. 




INITCK 




If SYSCLB is assigned, check if it is 
cross assigned to another partition 
and initialize the device table with 
SYSCLB data. 




■I 


' 





STMTSCAN 



CORGZ3F 
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Chart 03. CORGZ, - Root Phase (Part 2 of 2) 



CORGZ3 



STMTSCAN 






READ AND ANALYZE CONTROL 
STATEMENT 



Move Control statement from CARD1 
to CARD buffer and print on SYSLST. 
Read next control statement into CARD1. 



RTN2 



Analyze operation in CARD 

If ALLOC or NEWVOL branch to 
ITSALLOCorlTSNEWVOL 

If COPY branch to ITSCOPY 

If MERGE branch to ITSMERGE 
If/* or /& branch to END 



END 



PROCESS/* or /& 



EXIT 



If status reports are required, set 

up status table with desired library 

information 

and fetch $LIBST AT, 

else EOJ (SVC 14). 



C E0J ) 



ITSALLOC/IITSNEWVL 



Sl 



CALL PROCESSING PHASE 



FetchCORGZ7or- 
CORGZ7F 



-o 



ITSCOPY 




r0 



CORGZ6(F) 
GETCARD 



Cs> 




47 
$LIBSTAT 



CORGZ7 
CORGZ7F 



2. 



PROCESS COPY STATEMENT 



Check type of COPY statement and 
set indicators accordingly. 



If COPYC is processed fetch: 

for CKD libraries: CORGZ6 

for FBA libraries: CORGZ6F — 
then return to FROMSIXincase 
of COPY ALL, else to STMTSCAN 



-FROMSIX 



ALLOC 



NEWVOL 





MERGE 



.Fetch forCKD libraries: CORGZ3 - 
for FBA libraries: CORGZ3F 



ITSMERGE 



£ 



PROCESS MERGE STATEMENT 



Set switches to reflect the direct 
of the COPY operation following 
thir MERGE 

If NRS is involved, open SYS 002 
and read descriptors of N R R 
libraries into IOT ABLE. 



CORGZ6 
CORGZ6F 



-qrj 

CORGZ3 
CORGZ3F 
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Chart 04. CORGZ3 (Part 1 of 3) 



TSTALL -06 
ITSCOPY -02 




f CORGZ3 J 



CONTALL: 
NOTCALL: 



COPYI: 



Initialize buffer switches 

If COPYP, go to COPYPL 

If COPYR/COPYS, go to COPYRL/COPYSL 

If COPY, go to COPYI 

If COPYALL, COPYRALL first 
Copy I PL-record from RES to NRS - 
or from NRS to RES. 



--© 



COPYPL 




STMTSCAN 



CHKTOD 



COPYRL/COPYSL 



9 ^- 



SameasforCOPYRL/SL 
except as for private 
libraries 



CONTRDCD 



TSTCONT 



Determine input and output 
libraries. Determine logical 
unit numbers. Jf private 
libraries are involved open 
private library and read 
descriptor into IOTABLE 



JOINT: Determine number of directory records 

used in 'FROM'-library. 
Determine space needed for TO'-di rectory. 
Find number of entries available in 
TO'-directory. 
If COPYALL, go to 




COPYXALL 
orCOPYXNEW 

CALSPACE: Calculate Space needed for 
CCW's. 



Find End of Name Buffer 

Collect all names of members to be copied 
of the same type into the name buffer. 
Eliminate duplicates. 



DBALLOC: Allocate 'FROM'-directory buffer 




NXTCOMP: Sort names in name buffer according 
to 'FROM'-directory. Move entries 
of 'FROM'-directory into name-buffer. 

Names not found in the 'FROM'- 
directory are printed on SYSLST 
(MSG;3M33I) 



r»~COPYDIR: 



Allocate buffers for new 'TO'- 
directory. Build new directory. 
Update 'TO '-library descriptor. 
Test if space in library and 
directory. Set indicator if not. 
Rewrite first 'TO'-directory track. 
Write new 'TO'-directory. 



ALLOCMB: Allocate member buffers. Three 
'buf f ers are a I located to 
allow double-buffering. 
One buffer = 1 track of 
either 'FROM' or 'TO '-device 
(the larger one). 

INITCPY: Get number of records for 
first read and write 

COPYMEM: Calculate addresses for 

CCW-chains, store in I ORBs. 

COPYMEM1 : Get disk-addresses of adjacent— m 
members. Set indicator if last 
member. 

Read adjacent members using 

3 buffers continuously. 

Write out members. CCW-chains 

for read and write are built 

before EXCPs are given. 

If not last member 



OPYXAI 

-(TJ 



COPYXALL 



WRTLAST 



COPYXNEW 
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Chart 05. CORGZ3 (Part 2 of 3) 



COPYMEM1 




WRTLAST: Write last members (empty buffers) 



COPY END: 



DONCHKT: 



TSTCONT: 



Print names of copied members if 
desired. If the COPY was selective 
or ALL: ■ 



Else 

Write library descriptor. If directory 
or library is full write message and 
gotoTSTALL 



If COPYx was ALL or NEW, go to CONTALLN - 



If no move names in buffer, go to 
TSTMO R E . 



Move names in buffer (the names 

of which did not fit into the 

name-buffer during the processing 

off COPYx MOD. ALL) Move names in the 

buffer not yet copied to the top 

of the buffer. 

If no more statements, 

go to DBALLOC 



-CONTRDCD: Continue reading input cards 



CHKTOD 



TSTALL 






04 
JOINT1 




TSTMO RE: If no more input statements, 
go to STMTSCAN 



CORGZ 
STMTSCAN 
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Chart 06. CORGZ3 (Part 3 of 3) 



JOINT 



m 



JOINT 



COPYXNEW: Indicate 







COPYXALL: Indicate 



COPYAL1 : Calculate 'FROM'-di rectory buffer. 

Read 'FROM'-di rectory into Name-buffer 



TSTNEW: If COPYXNEW 
Else 




COPYDIR 
DONTCHKT 



CONTALLN: If more to be copied, go to COPYAL1 

TSTALL: If not COPYALL, go to STMTSCAN 

Indicate which COPY was to be done next 



CONTALL 
COPYEND 



o k) 



CHKTOD: Go through TO'-directory to find new names. 
Erase doubles in name-buffer 



( Return J 



-O 



-0 




03 



CORGZ 
STMTSCAN 
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Chart 07. COHGZ6 (Part 1 of 3) 
C0RGZ6 Overview: 



f CORGZ6 J 



0— 



0— 



BEGIN6 



JOINT 
JOINT1 
DBALLOC 

CHKALLOC 

ALLOCFDB 

NXTCOMP 

PROCSTT 

ALLOCMB 
COPYMEM1 



COPYCNEW 



NXTCOMPN 



COPYCALL 



0- 



NXTCOMPF 



— 6 




48 
$MAINDIR 



J cancel J 



CONTCNEW 



-0 



-0 



-0 



CONTALL 




GETCARD U 



-<? 



CORGZ 
STMTSCAN 



CORGZ 
FROMSIX 



50 DOS/VS Librarian 



Chart 08 • CORGZ6 (Part 2 of 3) 



NXTCOMPF 



CORGZ6 Process: 




f CORGZ6 J 



O 
©- 



BEGIN6: 



COPY$$: 



COPYWHAT: 



JOINT: 



Initialize switches etc. 

If ALLOC, 

Initialize lORBs with SYSRES input 
and SYS002 output. 

IfCOPYC, 

Initialize lORBs with appropriate 
logical unit numbers. Read descriptor 
into IOTABLE. 

Allocate Stow Table at the end 
of the program. 

Initialize NAMBUFF address (NBA) 
calculate maximum available 
buffer space: 

MBS= PARTEND-STTA-$M 
Initialize remaining lORBsetc. 
If COPYNEW, go to COPYCNEW, - 
ifCOPYALUgotoCOPYCALL,- 
if selective, 
find upper limit for NAMBUFF 
(NBEL) (min NAMBUFF size= 2K). 

Read names of members to be copied 
into NAMBUFF sorting them in reverse 
alphabetical order. 
Duplicate names are eliminated. 

Allocate from directory buffer. 

If SDL is present: use it to find 

first and last track 
of 'FROM' directory 
to be scanned. 

if not: Set number of 

directory records done 
(RECDONE) = 0. 



CHKALLOC: Indicate recordsto be scanned. 

Call ALLOCFDB to: 
Allocate 'FROM' directory buffer. 
Start reading directory and initialize 
Stow Table. 

NXTCOMP: Scan 'FROM' directory comparing all 
entries with names in the name buffer. 
PUT all names present in both into the 
Stow Table. 



JOINT1: 



DBALLOC: 






PROCSTT: 

ALLOCMB: 
COPYMEM1: 



After Stow Table is full or 
NAMBUFF exhausted or TO' 
directory is full or 'TO' library 
is full. 

Allocate member buffer. 

Copy all members using 3 buffers 
(track size if possible of largest 
track) and all members the directory 
entries of which are in Stow Table. 
Read all members one after another 
adjacently into member buffer. 
If the end of member buffer is reached, 
reading is continued at the beginning 
( N records = 1 track at a time) 
Writing is done if one track has been 
processed and is ready for writing. 

After all members have been copied, 

call$MAINDIR 

in order to update the TO' directory, 

then return here. 

Check if more has to be copied or if 

directory or library is full, print 

message. 

If COPYC ALL is being processed, go 
to CONTALL 



If COPYC NEW is being processed, go 
to CONTCNEW 



If NAME BUFF is exhausted 



or | 

End of NAME BUFF is reached 



Full directory buffer allocated - 



Else go to 



$MAINDIR 



ONTALL 



CONTCNEW 



GETCARD 



-o 

-0 
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Chart 09. C ORG 2.6 (Part 3 of 3) 



JOINT 



COPYMEMI 




COPYCNEW: 



NXTCOMPN: 



G> 




Allocate TO' directory buffer 
and read TO' directory; 
if possible read entire TO' dir. 
Read 'FROM' directory 

Compare 'F ROM' and TO' 

directory. 

Put entries from the 'FROM' 

directory, which are not yet 

in the TO' dir. into the 

Stow Table 




JOINT 





CONTALL: If operation is finished, format 

last track and go to 

GET CAR D 

Else continue* 




COPYMEM1 




CONTCNEW: If operation is finished, format 

last track and go to GETCARD - 

Read updated TO' descriptor 
and continue 



COPYCALL: Determine maximum NAME 

buffer length. 
Call ALLOCFDB to: 
Read 'FROM'-directory into 
NAME buffer. 

In case of COPYC during ALLOC, 
read only $- phases. 
In case qf COPYC after ALLOC, 
start reading after $-phases. 

NXTCOMPF; Fill Stow Table from NAME 

buffer, sorting entries according 
to member addresses. 




COPYMEM1 



GETCARD: 



Return to root phase. 

In case of COPY ALL, goto 

FROMSIX ~ 



EisegotoSTMTSCAN 




W 



CORGZ 
FROMSIX 



CORGZ 
STMTSCAN 
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Chart 10. CORGZ7 (Part 1 of 2) 



BEGIN7 



NEWVOL 




ALLOC 



NEWVOL 



Check library type just being 

processed and go to 

IPRVRL/IPCILfor reloc. 
library, or core image library, 
continue for source library 



IPRVRL/IPCIL 



Get device characteristics of private 
library residence device. 

If on FBA, fetch CORGZ7F 

Else 



ALLOCA 



Process the allocation, check validity 
and save in corresponding descrip- 
tors 



If zero was made, go to 

ONEUP — — 

to check for more private libraries. 



Open private library, build descriptor 
and check validity of allocation and 
extents 



Write out library descriptor and first 
directory block 



ONEUP 



Point to next operand on card. 
Set return registers to UPDATE and 
branch to 



UPDATE 



Point to next operand in control 
statement and process allocation of 
next private library. 



CORGZ7F 



ALLOC 



Open SYS002 in root phase. 
Check assignment and device type. 
Save system directory 



ALLOC1 



Check library type just 
being processed and go to 

RESRLfor reloc. libr. 

RESSLfor source libr, 

RESPL for proc. libr. 

continue for core image 



RESRL/RESSL 



" /RESPL 



ALLOCA 



Process the allocation, check validity 
and save in corresponding descriptors 



If a zero allocation was made, set the 
start address in the system directory to 
zero (in case of CIL, this is not valid) 



UPPTR 



Point to next operand on 

card and set return register 

to UPONd and branch to CKOPER 



CKOPER 



Check Jf more operands on card. 

In case of continuation card, read and 

check next card (in root phase). 




ALLOC 



NEWVOL 



If there are more operands to be 
processed, gb to UPDATE. Else 



<5 



STMTSCAN/CORGZ 



If there are more operands to be pro- 
cessed; go to UPONE 
Else go to CONTALLC 



UPONE 



CONTALLC 



Point toward operand on control 
card and process allocation of next 
system library 
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Chart 11. C0RGZ7 (Part 2 of 2) 



CKOPER 



CONTALLC 




Build library descriptors for all allocated 
libraries. 

Build system directory records. 

Copy I PL records. 

Write system directory records to NRS. 

Format directories for all allocated libra- 
ries and write descriptors 



SYSLABEL 



Copy standard labels 



CONT 



Go to CORGZ6 in order to copy all 
$- phases 



CORGZ6 
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Chart 12. C0RGZ3F (Part 1 of 3) 



C0RGZ3F Overview: 



f CORGZ3F J 




BEGIN3F 



NOTCALL 



COPYSL/ 
COPYRL 



ay 





o- 



JOINT 



JOINT1 

ENDNMCMP 

COPY1 



FINDCPY 
ENDCPYM 



CHKTOD 



ENDCOPY 



NEXTCARD 



IPLMERGE 



COPYPL 




CORGZ 
STMTSCAN 



COPYXNEW 



COPYXALL 






COPYXAL1 

NXTNEW 
NXTALL 



-0 
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Chart 13. C0RGZ3F (Part 2 of 3) 



C0RGZ3F Processing: 



( CORGZ3F J 



ENDCOPY 

i3H 




BEGIN3F: Allocate 4 1 K directory buffers at the 
end of the partition and initialize 
CCWs with these addresses. 



NOTCALL: For COPYI, go to IPLMERGE 
For COPYP, go to COPYPL ~ 
ForCOPYSorCOPYR, goto 
COPYRLor COPYSL 




ENDCOPY 
CHKTOp 

5> 



IPLMERGE: 



Copy block and blocks 3-9 
from SYSRESto New SYSRES 




NEXTCARD 



COPYRL/COPYSL: 

Determine input and output libraries: 
Initialize lORBs with appropriate 
logical unit numbers, extent definition 
block, with library addresses. 
If private libraries are involved, 
open private library and read 
descriptor into IOTABLE 





ENDCPYM 



E NDCPYM 
14 



COPYPL: 



Same as for COPYRL/COPYSL 
except for private libraries. 



JOINT: Initialize remaining lORBsand 

extent definition blocks. 
If COPY NEW, go to COPYXNEW- 
If COPY ALL, go to COPYXALL - 
If selective COPY 



JOINT 1 : Collect all names of members to be 
copied of the same type in the name 
buffer 



CHKDUPNM: Compare all names in the name buffer 
and eliminate duplicates. 

ENDNMCMP: Compare all names in the name buffer 
with all entries in the 'FROM' directory 
Names found to be present in the 'FROM' 
directory are sorted in the same 
sequence as in the directory; the address 
of the corresponding directory record 
is saved in the name buffer. 
Names not found in the 'FROM' dir. 
are printed on SYSLST (MSG: 3M33I). 

COPY: Allocate 2 buffers adjacent to the 

name buffer for copying the lib. member 
Read last TO' directory record, where 
the new directory entry has to be inserted 
into IOBUFF4. 

COPY1: Read 'FROM' directory record containing 

entry to be copied, if not 
already in memory (IOBUFF3). 

FNDCPY: Scan 'FROM' directory record for 
member to be copied. 

COPYDIR: Build and write new directory entry. 
The first entry to be copied is not yet 
written into the TO' directory but saved 
in order to maintain the integrity of the 
TO' library as long as possible. 
Copy library member using MBUFFI 
and MBUFF2 alternatively. 





"5" 

ENDCPYM 



COPYXNEW 



COPYXALL 
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Chart 14. C0R6Z3F (Part 3 of 3) 



COPYDIR 





IPLMERGE 




13 




ENDCPYM: If COPY ALL or NEW, go to NXTALL 

Else get next name in name buffer and address of its directory 
record. 

If within current record, go to FNDCPY 

If not, go to COPY1 

If end of name buffer 

ENDCPYM1 : Write current 'TO' directory record. 



CHKTOD: 



Compare all names of members to be copied in the name buffer 

with all entries in the TO' directory. Erase all names found to 

be present in the 'TO' directory from: 

in case of COPY NEW: the name buffer then branch to NXTNEW 

else from the TO' directory. 

If more members have to be copied (the names of which did not 

fit into the name buffer during the processing of a 

COPYxMOD.ALL) move all names in the buffer not yet processed 

to the top of the buffer and go to ENDNMCMP — 



ENDCOPY: 



Else write out the saved directory entry for the first member 
copied and the new library descriptor. 

If more to be copied for the ,same library type go to JO INT 1 — 
If the next library type has to be processed after a COPY ALL 
statement go to NOTCALL 



NEXT CARD: Else branch to STMTSCAN in root phase to read next control 
statement ■ 



-O 





\yf FNDCPY 



COPY1 



-© 



^ 



JOINT 



JOINT 





X 9 




JOINT1 



ENDNMCMP 



NOTCALL 



CORGZ 
STMTSCAN 



COPYXNEW: Indicate 

COPYx NEW processing 



COPYXALL: Indicate 

COPYx ALL processing 



©- 



COPYXAL1 : Read 'FROM' directory (as much as possible) into name buffer 
and set name buffer entry length according to directory entry 
length. 
If COPY NEW, go to CHKTOD 



NXTNEW: Else read last TO' directory record, i.e. the record where the new 
entry has to be inserted into IOBUFF4. 

NXTALL: Copy all entries until the end of the 'FROM' library, then go to 
ENDCOPY 



O 
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Chart 15. C0RGZ6F (Part 1 of 3) 



( C0RGZ6F ) 



BEGIN6F 



J0INT1 



Allocate buffers (GETADR) as follows: 
4K stow table and 2 2K directory 
buffers at end of program. 
26K for $MAINDIF, also used for 
library buffer, at end of partition. 
Remainder of partition for name buffer. 



COPYWHAF 



Determine if COPYC is preceded 
by ALLOC, NEWVOLor MERGE, or if 
CORGZ6F was entered from COR GZ7F 
to copy $ phases. 



Determine input and output 
libraries. Save logical units, 
library addresses, and addresses 
of LDR's in IOTABLE. In the case 
of private libraries, read the 
LDR's into the IOTABLE. 



JOINT 



Determine type of COPYC 
statement; 

Selective — — — -* 

COPYC NEW 
COPYC ALL 



COPYCALL 



Determine if ALLOC preceded 
COPYC ALL. If yes, indicate 
$ phases were already copied 
and should be skipped. 



CHKNEW 



If preceded by ALLOC or NEWVOL, do 
COPYC ALL. Otherwise, turn on 
switch and read a record from 
the TO' directory. 




Collect all names of members 

to be copied into the name buffer. 



CHKDUPNM 



Compare all names in the 
name buffer and eliminate 
any duplicates. 



COMPARE 



Compare names in name buffer 
with entries in the 'FROM' 
directory record. Then read 
next record and repeat. If an 
entry is not found, eliminate 
from name buffer and save 
name for message. If the entry 
is found, put it in Stow Table — 



INSERT 



5 

DOPHASE2 



CONTFDIR 



Remove the name just entered 
in Stow Table from name buffer. 
If more entries are still in 
name buffer, go to COMPARE. 



ENDFMCMP 



Process any entries left in 
Stow Table via STOWPROC. 
First the entries must be 
moved to the beginning of 
the Stow Table. 



(TJ 

GETCARD 



SORT 
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Chart 16. C0RGZ6P (Part 2 of 3) 



COPYCALL 
CHKNEW 



SORT 



o 




Set uplORB'storead 'FROM' 
directory into NAMEBUFF area 
for COPYC ALL, NEW, and for 
copying $ phases during ALLOC. 



NXTINTRY 



Get next entry to be processed. If 
this is a non-$-phase during copy 
for ALLOC, the copy is complete. . 



DOPHASE 



If hex 'FF' is found during 
COPYC ALL, the copy is complete. If- 
COPYC NEW, compare entry to TO' 
directory.— 



C OMPARE 



DOPHASE2 



M 



-Entry is to be put into the Stow 
Table to be copied. If no more room 
in Stow Table, process it 



INSERT 



ENDCDIR 



Process any entries left in 
Stow Table via STOWPROC. 
First the entries must be moved 
to the beginning of the Stow Table. 



E NDFMCM P 

<2j 



Insert the entry into the Stow Table, 
sorting on the block number address 
in the 'FROM' directory. The table 
is filled from bottom to top 



3> 

STOWPROC 




GETCARD 



If COPY ALL mode,enter the 



root phase at FROMSIX. Other- 
wise go to STMTSCAN to get 
next control card. 





CORGZ 
FROMSIX 



CORGZ 
STMTSCAN 



PROCNEW 



Determine if the current 
entry is a special case 
which is always copied — 
or never copied 



NXTOCMP 



Compare the entry to the TO' directory 
entries until the TO' directory entry 
is greater than the 'FROM' directory 
entry. 





YES 



6 



CONTFDIR 
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Chart 17* C0BGZ6F (Part 3 of 3) 

DQPHASE2 
16 

STOWPROC 




Initialize lORB's for reading and 
writing of library members. 



STOWNXT 



Get next entry to be copied 
from Stow Table. Determine 
FBA blocks needed. 



If directory or library 
doesn't have enough space 
update directory for previous 

entries via $MAINDIF 

Then put out error message and 
end job. 



DOMEMBER 



Copy library blocks, taking 
the 'FROM' dir. address from 
Stow Table and replacing it 
with TO' address for directory 
update by $MAINDIF. 



PRINTNAM 



Print out the name of the member 
just copied on SYSLST. 



If end of Stow Table has been 
reached, update the directory 

via $IV1A|NPIF — 

and return to caller 
Else—, 



( Return J 



MAINDIF 



I 



Complete header for Stow 
Table and execute $MAINDIF 
to update the directory for those 
members which were already copied, 



( Return J 
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Chart 18. C0RGZ7P (Part 1 of 2) 



ALLOC 




Open SYS002 in root phase, check 
assignments and device type; 
save system directory. 



ALLOC1 



Check library type just beeing 

processed and go to 

LPRVRL for reloc. library, 
IPCIL for core image library, 
continue for source library. 



LPRVRL/IPCI 



rr 



Check library type just being 
processed and go to 

RESRL for reloc. library 
RESSL for source library 
RESPL for proc. library 
continue for core image libraries. 



RESRL/RESSL/RESPL if 



Ged device charakteristics of private 
library residence device; if on CKD 
device, fetch CORGZ7 



ALLOCA 



Process the allocation; read alloc, 
from input card, check validity and 
save in corresponding descriptor. 



ALLOCA 



Process the allocation; Read allocation 
from input statement, check validity 
and save in corresponding descriptor. 



CORGZ7 



If a zero allocation were made, set 
the start addr. in the. system directory 
to zero (in case of CIL this is not valid). 



UPPTR 



Point to next operand on card; 
set return register to UPONE 
and branch to CKOPER 



If zero allocation was made, 

gotoONEUP 

Check if more private libraries are to 

be allocated. 



CKOPER 



Open private library; build library 
descriptor and check validity of 
allocation and extents. 



Write out library descriptor and 
first directory block. 



ONEUP 



Point to next operand on card; 
set return register to UPDATE 
and branch to CKOPER 



Check if more operands on card; 
in case of continuation card, read 
and check next statement. 




ALLOC 



If there are more operands to be 
processed on the control card go to 
-UPDATE 
Else go to STMTSCAN 




STMTSCAN^CORGZ 



UPDATE 



Point to next operand in control 
statement and process allocation 
of next private library. 



If there are more operands to be 

processed on the control card go to 

UPONE 

Else go to CONTALLC 




-*J 19 



UPONE 



CONTALLC 



Point to next operand on control 
card and process allocation of next 
system library. 
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Chart 19. C0RGZ7F (Part 2 of 2) 



CKOPER 



© 



CONTALLC 



Build library descriptors for all 
allocated libraries. 



Copy label area from RES to NRS; 
take minimum of: max. CCW count, 
label area length, space teft between 
program and partition end or buffer. 



COPYIPL 



COPY IPL RECORD AND SYSTEM DIR. 



Reach block to 9 from SYSRES. 
Block and 3 to 9 contain IPL, 
block 2 the system directory. 



Update system directory in buffer 
according to new allocations. 



Write block and blocks 
2 to 9 to SYS002. 



Write out library descriptors and 
first directory block (with END 
entry) for all allocated libraries. 



THEN 



Fetch CORGZ6F 

in order to copy the $-Phases from 

SYSRES to SYS002. 




CORGZ6F 
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Chart 20, 



MAINT 



Root Phase (Part 1 of 4) 



(MA I NT *\ 
root phase 1 



FETCH APPROPRIATE PHASE 



(IJBLBA) A 



BEGINN/BEGINN1 

Initialize SYSIPT switches for control card reading. 

Go to initialize the device table 



NWREAD 

Go to read control statements - 



v- 



24 
25 
30 
31 
32 
33 
34 
35 
37 
39 
43 
44 
46 



ILLGOPA1 22 
READCD 32 
READCD 33 



INITIALIZE DEVICE TABLE 



(IJBMIN) 



INSTART 

Allow write on SYSRES ($$BSYSWR). 

Open SYSIN and SYS LST. 

Initialize the device table with the device 

characteristics for SYSRES device. For private 

libraries, open those to get the location (start 

address) of the library, for system libraries, 

read the system directory to get the start 

address. 



3- 



GET CONTROL STATEMENT (IJBMCS) 



CSSTART 

GET a control statement from SYSIPT. 

If end-of-file go to 

I 



Else: 

Display the statement on SYSLST (module 

IJBLBC) 



If Stow Table from preceding operation pen- 
ding, empty it by calling $MAINDI R or 
$MAINDIF. 
Scan control statement for operation — 

CSCONT 

Scan for operand and return 

EOF 

If Stow Table to be emptied call $MAINDIR 

or$MAINDIF. 

ENDJOB 

Prepare to have the status report and call 

SLIEST AT to print the status report 

Then close SYSIPT and, if cancel is required ■ 
Else 



C 



MAINT ERROR ROUT. (IJBLBC) 



ERSTART 

Move error message or control state- 
ment to buffer and print via PUT. 



X/^MNTRETN 



( SVC6 J 



© 



SVC14 



J 
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Chart 21. &AINT - Root Phase (Part 2 of k) 



CSSTART 



FETCH APPROPRIATE PHASE 



(IJBLBA) B 



MNTRETN 




YES 



Go to one of the following labels, depending on 
operation specified: 

ACATAL 

If CATALS (for source library), then FETCHS2 



If CATALR (for relocatable library), then 
FETCHR2 



If CATALP (for procedure library), then 
FETCHP2 



If DELETE or RENAME: ADELREN 



If ALLOC: 

AALLOC 

Set up to load MAINTCN(F) to condense libraries 

first and indicate to MAINTCN to load MAINTA/F 

after condensing — — — 



ILLGOPA1 



^\^ MAINTS2/F J 



(Load ^ 
MAINTR2/F J 



Notes : 

1. These phases are only loaded 
if they are not present from 
an earlier operation. 

2. Loading is done via routine 
LDMNTPH1 



(Load \ 
MAINTP2/F J 



(Load *\ 
MAINTDR/F J 



(Load \ 
MA1NTCN/F J 
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Chart 22. WAINT - Root Phase (Part 3 of 4) 



MAINTCNF 
E OJRTN 



M NTRET N 



MAINTCNF 
EOJRTN 



FETCH APPROPRIATE PHASE 



(JJBLBA) C 



If condense is required: 

ACONDS 

Analyze operands of condense command and set 
switches for libraries to be condensed. If CKD 
library set, bit for iibrary in CKD switch, if FBA 
set, bit for library in FBA switch. 

NXTCONDS 

Test library switch on sequence RL, SL, PL, CLfor 

any library to be condensed. 



CKD 




ACONDL 
Go to load 



AUPDATE 



ILLGOPA1 

Prepare error message and go to print it 



V MAINTCN J 



(Load ^\ 
MAINTCN/Fy 

(Load *\ 
MAINTCL J 

(Load *\ 

MAINTUP/T/ 



ERROR ROUTINE 



(IJBLBC) 



ERSTART 

Move error message to buffer and print 

message (by PUT). 



Set cancel bit in INITABLE and link to module 
I JBMCS to give status report (if any) 



LDMNTPH1 

Get phasename from phasename field. 

MNTLP 

Load phase and branch to entry point 



EOF 



(Processing A 
phases J 
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Chart 23. MAIHT - Boot Phase (Part 4 of 4) 



COMMON I/O ROUTINES CKD 

(Modules IJBMIO, IJBMUP, IJBMDS, IJBMDU) 



DIRECTORY UPDATE ROUTINE 

DUST ART 

Read a directory record and 

insert the directory entry 

passed into it or into next if full. 

DUNEW 

Update library descriptor after the 

catalog operation. 

DUOLD 

Update library descriptor after 

deletion (or catalog) of member. 



2. DIRECTORY SCAN ROUTINE 
DSSTART/DSCONT 
Read directory records and 
check all entries for equal 
compare with name given 
in table 




UPDATE DISK ADDRESS 

DKADUP 

Update disk address to next 

block's address accounting 

for device characteristics, i.e. 

blocks/track and tracks/cylinder. 



DISK I/O ROUTINE 

IOSTART/RDENT 

Set command for READ DATA 



WTFMENT 

Build up channel program 

for FORMAT WRITE 



WTDATENT 

Set command code for WRITE DATA 



MAINTRTN J 
complete channel program 
with seek/search and buffer 
address. If RPS channel program 
required set it up. 
Execute I/O request. 



^ f Caller via \ 

"~ V linkage register J 



^ f Caller via ^ 

"~ V linkage register J 



(Caller via A 

linkage register^ 
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Chart 24. HAINTCL (Detail Charts EX-FA) 



( MAINTCL J 



START 



Scan CON DL statement for 
library operands 



CLREQ 
RLRREQ 
PLREQ 
(SLREQ)* 



Move library data to Status 
Table in $LIBSTAT. Distin- 
guish CKD and FBA. Update 
I/O table or prepare 10 RB. 



MAINLINE 



* label missing in list 



Put condense limit into re- 
spective library descriptor 
record 




MA I NT 
CSSTART 
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Chart 25* ttAINTCH (Detail Charts FD-FM) 




PROCEDURE 



CICONRTN 



CORE IMAGE 



11 (SYSRES/SYSCLB) 



CHECK FOR MPS AND LOAD 
$MAINDIR 



Load $MAINDIR and calculate its work 
area address. 

If SYSCLB is not assigned and this is an 
MPS system and multiprogramming is in 
process, the CL parameter is ignored 
and processing continues. 
If the above condition does not exist, 
bit 6 of the linkage control byte 
(displacement 57 in the partition com- 
munications region) is set to prevent 
interrupts, thus allowing completion 
of the CL condense. 



INITIALIZE FOR CL LIBRARY 
CONDENSE 



Initialize to condense the core image 
library on SYSRES or SYSCLB if 
condense is to be done on the SYSCLB, 
check to determine if it is assigned to 
the same PCIL in another partition. 
If it is, cancel the job after giving the 
status reports. 



MAINCIL 



SORT THE Dl RECTORY ON TTR 
AND CONDENSE 



Read the directory entries. Sort the 
-directory entries starting with the first 
entry with a TTR higher then the TTR 
in the library descriptor record. After 
the sort area has been filled with direc- 
tory entries, condense the library blocks, 
insert new TTR's and stow the entries in 
the Stow Table to be used by $MAINDIR 
to update the directories. 



RLCONRTN 



RELOCATABLE 



(ON SYSRES 
OASYSRLB) 



SSCONRTN 



INITIALIZE FOR RELOCATABLE 
LIBRARY CONDENSE 



Initialize to condense relocatable library 
and directory on SYSRES or SYSRLB. 
If multiprogramming is in process, the 
RL parameter is ignored. 



COMPDIA 



SOURCE STATEMENT 

(ON SYSRES 
ORSYSSLB) 



INITIALIZE FOR SOURCE STATEMENT 
LIBRARY CONDENSE 



Initialize to condense source statement 
library and directory on SYSRES or 
SYSSLB. If multiprogramming is in 
process, the SL parameter is ignored. 



J 



PLCONRTN 



(ON SYSRES) 



CONDENSE A DIRECTORY 



A scan is made of all entries in the 
directory. New directory blocks are 
built in core from nondeleted entries. 
Deleted entries are omitted from the 
new directory blocks. 



IOEXEC 



INITIALIZE FOR PROCEDURE LIBRARY 
CONDENSE 



Initialize to condense procedure library 
and directory on SYSRES. 



WRITE CONDENSED MEMBERS 
AND DIRECTORY 



Member and directory records are written 
on SYSRES/SYSCLB/SYSRLB/SYSSLB. 
Directory records in core determine the 
member records to be written on the 
proper logical unit. 

The library descriptor is updated and writ- 
ten out again 



EOJRTN 




YES 





If MAINTCN was called by: 



• MAINT and an ALLOC 

• MAINT and CONDS 



J Load MAINTA J 
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Chart 26. ttAINTCNF (Part 1 of 4) 



INITST 




MAINTCNF 



) 



a) Save operands register for MA I NT A F. 

b) Allow write on SYSRES. 

c) Get condense switch from INITABLE 
(interface to MAI NT root phase) 



TYPCONCK 



Determine which library is to be condensed 
and branch to the appropriate initialization 
routine: 




REL 



YES 



NO 




SSL 



YES 



NO 



PROC 




YES 



NO 




CIL 



YES 



NO 



Set switch to allow ASSGN PCIL. 
Insert condense switch into INITABLE. 
Go to end of job routine 




SSCONRTN 



PLCONRTN 




CICONRTN 



k) 



EOJRTN 



o 



CICONRTN 



INITIALIZATION OF CORE IMAGE LIBRARY 




PCIL 



NO 



YES 



a) Indicate to supervisor that a condense of a 
PCI L is going on, and not to allow an ASSGN 
of this PCIL by job control by a partition. 

b) Check if the PCIL is also assigned In any other 
partition, if yes give a message that PCIL is 
cross assigned and cancel 



SYSCIL 



a) Check if multiprogramming in progress, if 
yes condense of library will be ignored. 

b) Allow PCI L to be assigned again 



CILINIT 



a) Reorganization message on SYSLOG and 
SYSLST (no SYSLST message when running 
for reallocation). 

b) Initialize IORB, define extent and 
locate for read and write. 

c) Insert library data into Status Table. 

d)Get address of $MAINDIF in SVA for the 
update of core image directory, SLD etc. 

e) Prevent fetch from system core image library 
during condense 



DESREAD 
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Chart 27. &AINTCNF (Part 2 of 4) 
TYPCONCK 



m 



RLCONRTN 



INITIALIZATION OF RELOCATABLE 
LIBRARY 



a) Check if multiprogramming in progress, 
if yes ignore condense of library. 

b) Print reorganization message, 
suppres output on SYSLST if 
condense for reallocation. 

c) Initialize IORB, define extent and 
locate for read and write. 

d) Insert library data into Status Table 



TYPCONCK 



SSCONRTN 




5> 

DESREAD 



INITIALIZATION OF SOURCE STATEMENT 
LIBRARY 



a) Check if multiprogramming in progress, 
if yes ignore condense of library. 

-b) Print reorganization message, suppress 
output on SYSLIST if condense 
for reallocation. 

c) Initialize IORB, DEFINE, EXTENT and 
LOCATE for read and write. 

d) Insert library data into Status Table 



TYPCONCK 



PLCONRTN 





DESREAD 



INITIALIZATION OF PROCEDURE 
LIBRARY 



a) USE system resource SYSPL, if already 
in use, set up message and ignore 
condense. 

b) Print reorganization message, suppress 
output on SYSLST it condense for 
reallocation. 

c) Initialize IORB, DEFINE EXTENT and 
LOCATE for read and write. 

d) Insert library data into Status Table 



DESREAD 
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Chart 28. ttAINTCNF (Part 3 of 4) 



DESREAD 



BUFFER BUILD ROUTINE 



• Read library descriptor record. 

• Are there any deleted members, 
if not, ignore condense. 




a) Check if library already destroyed 
if yes, print message and cancel. 

b) Insert 'DSTRDYD' into library descriptor 
record displacement +1. 

(This will be removed after completed 
condense run). 

c) Check address of first deleted member. 

d) Build Stow header and initialize. 

e) Build Stow Table (directory output 
buffer) 



RLSLPL 



£ 



Build directory output buffer 
for RLL, SSL and PI- 



PREPARE 



BUILD BUFFER CONT. AND PREPARE I/O 



Build directory input buffer for 
all libraries. 

Compute available buffer space from 
partition end address or for CIL 
from $MAINDIF workarea begin. This 
variable buffer size is used for member 
condensing. 

Get number of FBA blocks of a 
directory and member record. 

Prepare DEFINE EXTENT and LOCATE 
for directory I/O. 

Insert buffer address and byte count 
into CCW chain. 




ro 



26CILINIT 

27 RLCONRTN 
SSCONRTN 
PLCONRTN 



RLSLPL 



LIBCONDS 
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Chart 29. MAINTCSF (Part 4 of 4) 



PREPARE 



V 



MAINCIL 



NEXTLIB 




CONDENSE OF THE CORE IMAGE LIBRARY 



a) Before condense of (P)CI L can start, entries 

have to be sorted in sequence of member addresses 
because entries in CIL are sorted alphabetically. 

b) Each member address within the entry is compared 
with DESFDL (address of first deleted member record). 
Entries with higher member addresses are sorted into 
directory out area (STOWTAB interface to $MAINDIF). 

c) When STOWTAB is filled, the members will be 
read in and written back into new disk addresses. 
Then STOWTAB is passed to $MAINDIF to update 
the CIL directory. 

d) The highest member address of the last run will be 
the lowest address for comparing the entries of 
the next run, until the whole library is condensed. 



PREPARE 



LIBCONOS 




CONDENSE OF RL, SSL AND PL 



a) First scan directory to find the first deleted entry 
in library. If there is no deleted entry give error 
message and cancel. 

b) Scan through directory check if entry deleted, if no 
read in member and write back onto new disk address, 
update entry, move entry to directory outarea. 
Write directory record back on disk if outarea filled. 

c) Update the library descriptor record. 



6 



a) Set switch to allow fetch from system core image 
library. Move condense switch back to INITABLE. 



TYPCONCK 




EOJRTN 



6 



EXIT ROUTINE 



YES 




NO 



Return to root 
phase 'M NT LP' 



Return to root 
phase 'NXTCNDS' 



k) k) 

M/IAINTXt-^ ^m, 



LOADINIT MNTLP f 



MAINT 
NXTCNDS 



LOAD INITIALIZATION FOR NEW 
CONDENSE 



a) Save parameter registers for MAI NTAF 

b) Load Condense Phase (itself) again 
because of destroyed initialization part. 

c) Get condense switch from INITABLE 



INITST 



72 DOS/VS Librarian 



Chart 30, 



AAINTR2 




f MAINTR2 } 



INITIALIZATION 



The statement is checked for errors and a valid V.M. A diagnostic message is issued 
for an invalid V.M. and 0.0 is assumed. The root phase initialization table 
(see MA I NT for contents) is used by this phase and is referenced upon 
initial entry into the phase. If no relocatable library is allocated, a diagnostic 
message is issued and the program branches to ENDJOB in the MAI NT root 
phase to cancel the job. 



If the relocatable library is allocated, the relocatable library descriptor is 
read from SYSRES or SYSRLB as determined from INITABLE. 



CATALR 



CATALOG A MODULE 



The relocatable library directory (on SYSRES/SYSRLB) is scanned to determine 

if an existing module (bears the same name) is to be replaced. The entry to be 

replaced is deleted from the directory and the system directory is immediately 

updated. 

Statements are read from SYSIPT (module to be cataloged) and analyzed 

as to type. 

As blocks are built, they are cataloged starting at the next available block 

in the library. 

The program branches to RCESD to build ESD records, to RCRLD to build RLD 

records, and to RCTXT to build TXT records. Other types of statements are 

cataloged in card image format. 



MAINT 
ENDJOB 




END 
statement 



YES 



COM CAT 



ESD 



Statement 



TXT 



RCESD 


■ 






^s. Type ^^ 




BUILD ESD RECORD 




Trl 


D 

RCTXT ' 




Conversion of ESD input to 
RL records. 

The ESID of each record, 
regardless of the length of the 
variable field, is the ESID of 
the first non-LD item in the 
variable field. Set up 
ESID save areas. 




RCRLD 


■ 




' 




BUILD RLD RECORD 




BUILD TXT RECORD 


Conversion of RLD 
input records to 
RL records. 


Conversion of TXT 
input records to 
RL records. 
























' 


' 









COMPLETE CATALOGING 



The END card image is written out 
to the library and the relocatable 
directory is updated and written 



LEAVE 



The I/O table is set for the 
relocatable library. 



MAINT 
CSSTART 



o 
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Chart 31, 



HAINTR2F 



RCESD 



BUILD ESD RECORD 



( MAINTR2F J 



INITIALIZATION 



The statement is checked for errors and a valid VM. A diagnostic message is issued 
for an invalid V.M. and 0.0 is assumed. The root phase initialization table 
(see MAI NT for contents) is used by this phase and is referenced upon initial 
entry into the phase. If no reloctable library is allocated, a diagnostic message 
is issued and the program branches to ENDJOB in the MAINT root 
phase to cancel the job 



If the reloctable library is allocated, the reloctable library descriptor is 
read from SYSRES or SYSRLB as determined from INITABLE 




CATALR 



CATALOG A MODULE 



Statements are read from SYSIPT (module to be cataloged) and analyzed 

as to type. 

As blocks are built, they are cataloged starting at the next available block 

in the library. 

The program branches to RCESD to build ESD records, to RCRLD to build RLD 

records, and to RCTXT to build TXT records. Other types of statements are 

cataloged in card image format — — 




END 
statement 



NO 



YES 



ESD 



Conversion of ESD input to RL records. 
The ESID of each record, regardless 
of the length of the variable field, 
is the ESID of the first non-LD 
item in the variable field. Set 
up ESID save areas 



RCRLD 




BUILD RLD RECORD 



Conversion of RLD 
input records to 
R L records 



BUILD TXT RECORD 



Conversion of TXT 
input records to 
RL records 



6 



MAINT 
ENDJOB 



6 



COMCAT 



COMPLETE CATALOGING 



The END card image is written out to 
the library} The reloctable directory 
(onSYSRES/SYSRLB) is scanned to 
determine, if an existing module is to be 
replaced. The entry to be replaced is 
deleted from the directory and the new 
entry is added to the directory. The re- 
loctable library descriptor is updated 
and written together with the affected 
directory records 



LEAVE 



The I/O table is set for the reloctable 
library 



© 



MAINT 
CSSTART 
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Chart 32. WAINTS2 



f MAINTS2 j 



INITIALIZE AND ANALYZE 



Control byte switches are set to zero. EOF in MAI NT root phase is set to branch, and the SS 
descriptor address is obtained from the MAINT root phase. If the library is allocated, the 
SS descriptor record is read in. If it is not allocated, or if the library or directory is full, a 
diagnostic message is issued and the program branches to ENDJOB in the root phase to determine 

if a status report is to be made. 

(See I NIT ABLE, for partial information used by this phase.) 

The card is checked for a valid book name, both for length and for characters. The first 

character must be alphabetic, $, =, or @ and the remaining characters alphameric. 

The directory is scanned for the book name, and if found, the entry is deleted by blanking the 

name f ield^in the directory entry. The SS descriptor is updated and written. 



READCD 



MAINT 
ENDJOB 



READ, COMPRESS, AND CATALOG BOOK 



The MACRO or BKEND header statement is read.. If a BKEND, switches are set to perform any 
of the options the user called for (sequence checking, statement counting, or input in compressed 
format). The source statements of the book are read and put into the output block in compressed 
format. If already compressed, the input is put directly in the output block. If not, the input is 
compressed and then put in. When the output block becomes full, it is written into the source 
statement library. The program checks; each statement to determine if it is a MEND ending in a 
MACRO definition book or a BKEND ending in a source deck. When the last statement is recog- 
nized, it is written into the source statement library with a hexadecimal zero at the end to 
identify end-of -book. A switch is set to indicate the next card read will be the card of a new book. 

If SYSIPT is tape or disk, the program branches to EOF in MAINT root phase when a /* is 

encountered. 



LCDPR1 



(7J 

MAINT 
EOF 



ALL THROUGH PROCESSING 



The source statement directory is updated to reflect the changes in the source statement library, 
and written on SYSRES/SYSS LB 



rrj 

MAINT 
CSSTART 
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Chart 33. HAINTS2F 



f MAINTS2F J 



INITIALIZE AND ANALYZE 



Control byte switches are set to zero. EOF in MAINT root phase is set to branch, and the SS 
descriptor address is obtained from the MAINT root phase. If the library is allocated, the 
SS descriptor record is read in. If it is not allocated, or if the library or directory is full, a 
diagnostic message is issued and the program branches to ENDJOB in the root phase to determine 
if a status report is to be made, 



(See INITABLE, for partial information used by this phase.) 

The card is checked for a valid book name, both for length and for characters. The first 

character must be alphabetic. $, =, or @ and the remaining characters alphameric. 



8 

MAINT 
ENDJOB 



READCD 



READ, COMPRESS, AND CATALOG BOOK 



The MACRO or BKEND header statement is read. If a BKEND, switches are set to perform any 
of the options the user called for (sequence checking, statement counting, or input in 
compressed format). The source statements of the book are read and put into the output block in 
compressed format; If already compressed, the input is put directly in the output block. If not, 
the input is compressed and then put in. When the output block becomes full, it is written into 
the source statement library. The program checks each statement to determine if it is a MEND 
ending in a MACRO definition book or a BKEND ending in a source deck. When the last 
statement is recognized, it is written into the suorce statement library with a hexadecimal zero 
at the end to identify end-of-book. A switch is set to indicate the next statement read will be 
the first of a new book. If SYSIPT is tape or disk, the program branches to EOF in MAINT 
root phase when a /* is encountered. 



LCDPR1 



MAINT 
EOF 



ALL THROUGH PROCESSING 



The source statement directory is scanned for the book name, and if found, the entry is deleted. 
The new entry is/added to the directory. The source statement descriptor record is updated and 
written together with the affected directory records on SYSRES/SYSSLB. MAINTS2F returns to 
CSSTART in MAINT to read another card. 



1? 

MAINT 
CSSTART 
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Chart 34. IMAINTP2 



f MAINTP2 J 



CATALP 



INITIALIZE AND CHECK CATALP CARD 



Control byte switches are set to zero. The descriptor record is read if 
the procedure library is allocated. If it is not allocated, or if the directory 
of the library is full, a diagnostic message is issued, and the program 
branches to ENDJOB in the MAI NT root phase to determine if a status 
report is to be made. 



The statement is checked for a valid procedure name (1-8 alphanumeric 
characters, of which the first must be alphabetic). The card is then 
checked for a valid VM = (version 0-127, modification 0-255) parameter. 
If it is invalid, a message is issued, and 0.0 is assumed. A check for 
a valid EOP parameter (which must not be //, /*, or /&, and which 
must not contain a blank or a comma) is made. If the EOP parameter 
is invalid, a bit is set to indicate that the program will be cancelled 
after making the status reports, and the program branches to 
ENDJOB in the MAI NT root phase.- 



The DATA parameter must be YES or NO. If a parameter appears 
twice in the same statement, it is treated as invalid. If an invalid procedure 
name or DATA parameter is encountered, the CATALP statement is 
checked for more parameters, and the procedure is skipped up to 
the EOP delimiter. 



MAINT 
ENDJOB 



CATALOG THE PROCEDURE 



The directory is scanned for the procedure name from the CATALP sta- 
tement and if the name is found, the corresponding entry in the direc- 
tory is deleted and the directory is updated. P2EOF in the EOF routine in 
the MAINT root phase is changed so that on reading an EOF, control 
returns to NOEOF in MAINTP2. If there is cataloged in the library. 
Otherwise, an error message is issued. When EOP is detected, the entry 
for the new procedure is entered in the directory, and the procedure 
library directory is updated. P2EOF in the MAINT root phase is reset. 



MAINT 
CSSTART 
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Chart 35* .BAINTP2F 



C MAINTP2F J 



CAT A LP 



INITIALIZE AND CHECK CATALP CARD 



Control byte switches are set to zero. The descriptor record is 
read if the procedure library is allocated. If it is not allocated, 
or if the directory of the library is full, a diagnostic message is issued, 
and the program branches to ENDJOB in the MAI NT root phase to 

determine if a status report is to be made. — 

The statement is checked for a valid procedure name ( 1 -8 
alphanumeric characters, of which the first must be alphabetic) The 
card is then checked for a valid VM - (version 0-1 27, modification 0-255) 
parameter. If it is invalid, a message is issued, and 0.0 is assumed. A 
check for a valid EOP parameter (which must not be //, /*, or /&, and 
which must not contain a blank or a comma) is made. If the EOP parameter 
is invalid, a bit is set to indicate that the program will be cancelled 
after making the status reports, and the program branches to 
ENDJOB in the MAI NT root phase 



The DATA parameter must be YES or NO. If a parameter appears twice 
in the same statement it is treated as invalid. If an invalid procedure 
name or DATA parameter is encountered, the CATALP statement is 
checked for more parameters, and the procedure is skipped up to 
the EOP delimiter. 



MAINT 
ENDJOB 



CATALOG THE PROCEDURE 



P2EOF in the EOF routine in the MAINT root phase is changed so that 
on reading an EOF, control returns to NOEOF in MAINTP2. If there is 
enough space in the library, the new procedure is cataloged in the libra- 
ry. Otherwise, an error message is issued. When EOP is read, the direc- 
tory is scanned for the procedure name, and if found, the entry is de- 
leted. The new entry is added to the directory. The procedure library 
descriptor record is updated and written with the affected directory 
records on SYSRES. P2EOF in the MAI NT root phase is reset. 



[7J 

MAINT 
CSSTART 
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Chart 36. WAINTDR (Part 1 of 2) 



( MAINTDR J 



DRSTART 



ANALYZE CARD AND SET FOR 
INITIALIZATION TABLE 



The operation is checked for REN AM or DELET and a pointer is set to the 
information (initialisation) table set up in the MAI NT root phase. 
Statement and operands are checked for valid length and, if invalid, a 
diagnostic message is issued and a new statement or operand is obtained. 



Library 
Requested 



RENAMRTN 
or MAINRT N 



Core Image 
(onSYSRES/SYSCLB) 



CLIB 



RENAMRTN 
orMAINRTN 



Procedure (on SYSRES) 




INITIALIZE FOR CI DELETE 
OR RENAME 



A Stow Table with DELETC requests or 
one RENAMC request is created. 

$MAINDIR is then loaded to process these requests. 
$MAINDIR is also executed if any other operation 
is requested, if a /* is read, or if the Stow Table is full. 



$MAINDIR 



PLL 



RENAMRTN 
orMAINRTN 



Source Statement 
(onSYSRES/SYSSLB) 




INITIALIZE FOR PL DELETE 
OR RENAME 



The procedure directory is read into storage in the 
module IJBMDS of the root phase via the I/O table. 
Initialization is performed for the delete and rename 
routines to scan for the items to be deleted or renamed. 



k) 



SLL 



RENAMRTN 
orMAINRTN 



Relocatable 
(onSYSRES/SYSRLB) 




INITIALIZE FOR SS DELETE 
OR RENAME 



The source statement directory is read into storage 
in the module IJBMDS of the root phase via the I/O 
table. Initialization is performed for the 
delete or rename routines to scan for the items to be 
deleted or renamed. 



V 



RLL 



INITIALIZE FOR RL DELETE 
OR RENAME 



The relocatable directory is read into storage in the 
module IJBMDS of the root phase via the I/O table. 
Initialization is performed for the delete or 
rename routines to scan for the items to be deleted 
or renamed. 
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Chart 37. ttAINTDR (Part 2 of 2) 



PLLor 
36 I SLLor 
RLL 




RENAME 



DELETE 



MAINRTN 



RENAMRTN 



DELETE FROM SELECTED LIBRARY 



The book(s), phase(s), module(s), sublibrary(s), 
library(s), or procedure(s) are deleted as 
determined from the card image, and the directory 
(on SYSRES/SYSCLB/SYSRLB/SYSSLB) is updated 
in the module IJBMDU of the root phase via the 
I/O table. Each operand on the statement is 
singularly processed. After all operands on 
the statement are processed, MAINTDR exits to 
CSSTART in the root phase to read another 
statement. 



If another operand exists on the statement and 
this is not the initial entry, the program branches 
-to CSCONT. If this is the initial entry, return is to 
RLL, SLL,or PLL according to the serviced program. 



CSCONT 



SLL 



© V 



RENAME FROM SELECTED LIBRARY 



The old name in the library directory is replaced by the 
new name for the module, book,or procedure. 
The operands are processed in pairs (oldname, newname) 
until all are processed. After processing all operand pairs, 
a branch is taken to CSSTART in the MAI NT root phase. 
If more operands exist and this is not the initial entry, 
the program branches to CSCONT, 



If this is the initial entry, return is to RLL; 

SLL or PLL according to the serviced program. 



© 



SLL 



MAINT 
CSSTART 



MAINT 
CSSTART 



PLL 




CSCONT 



RLL 



PLL 
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Chart 38. N&INTDRF (Part 1 of 2) 



DRSTARTF 



FROMMAINT 
C MAINTDRF J 



ANALYZE CARD AND SET FOR INITIALIZATION TABLE 



The operation is checked for RENAM or DELET and a pointer is set to the 
information (initialization) table set up in the MAI NT root phase. Statement 
and operands are checked for valid length and, if invalid, a diagnostic 
message is issued and a new statement or operand is obtained. 



Library 
Requested 



RENAMRTN 
or MAINRTN 



Core Image 
(onSYSRES/SYSCLB) 



CLIB 



RENAMRTN 
or MAINR TN 



INITIALIZE FOR CI DELETE OR RENAME 



A Stow Table with DELETE requests or one R ENAME 
request is created. 

$MAINDIF is then loaded to process these requests. 
$MAINDIF is also executed if any other operation 
is requested, if a /* is read, or if the Stow Table is full. 



$MAINDIF 



Procedure (on SYSRES) 



PLL 



»- INITIALIZE FOR PL DELETE OR RENAME 



RENAMRTN 
or MAINRTN 



The procedure directory is read into storage using 
the IORB. Initialization is performed for the delete 
and rename routines to scan for the items to be deleted 
or renamed. 



Source Statement 
(onSYSRES/SYSSLB) 





SLL 



RENAMRTN 
or MAINRTN 



INITIALIZE FOR SS DELETE OR RENAME 



The source statement directory is read into storage 
using the IORB. Initialization is performed 
for the delete or rename routines to scan for 
the items to be deleted or renamed. 



Relocatable 
(onSYSRES/SYSRLB) 







INITIALIZE FOR RL DELETE OR RENAME 



The relocatable directory is read into storage using 
the IORB. Initialization is performed for the delete 
or rename routines to scan for the items to be 
deleted or renamed. 
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Chart 39. MAINTDRF (Part 2 of 2) 



PLLor 
38 J SLLor 
RLL 




RENAME 



DELETE 



MAINRTN 



DELETE FROM SELECTED LIBRARY 



The block(s), phase(s), module(s), sublibrary(s), 

library(s) or procedure! s) are deleted as 

determined from the card image, and the directory (on 

SYSRES/SYSCLB/SYSRLB/SYSSLB) is updated using 

the 10 RB. Each operand on the statement is singularly 

processed. After all operands on the statement 

are processed, MAINTDRF exits to CSSTART in the 

root phase to read another statement 

If another operand exists on the statement and this 
is not the initial entry, the program branches 
to CSCONT. If this is the initial entry, return is to 
RLL, SLL or PLL according to the serviced program. 



MAI NT 
CSCONT 



SLL 



RLL PLL 



RENAMRTN 



RENAME FROM SELECTED LIBRARY 



The old name in the library directory is replaced by the 
new name for the module, book or procedure. 
The operands are processed in pairs (oldname, newname) 
until all are processed. After processing all operand pairs, 
a branch is taken to CSSTART in the MAI NT root phase. 
If more operands exist and this is not the initial entry, 
the program branches to CSCONT. 



If this is the initial entry, return is to RLL, 

SLL or PLL according to the serviced program. 



SLL 




(3 

MAINT 
CSSTART 



MAINT 
CSCONT 



RLL 



MAINT 
CSSTART 
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Chart 40. ttAINTA (Detail Charts MA-MQ) 



C MAINTA J 



MAINTA 



PROCESS ALLOCATE CONTROL STATEMENT 



The operands of the ALLOC control statement are ana- 
lyzed and a table containing the reallocation informa- 
tion is built from the statement 



GOON1 



UPDATE ACCORDING TO ALLOC STATEMENT 



All four system directory records and the library de- 
scriptor records are read into storage and updated 
using the information stored from the ALLOC state- 
ment 



WRITE2 



WRITE THE UPDATES 



Move all SYSRES areas if the new addresses are higher 



DIRUP 



UPDATE LIBRARY DIRECTORIES 



The library directories are read into storage one block 
at a time. Each entry in the directory block is updated 
by using the reallocation tables. The updated directory 
blocks are written at the same disk address where they 
were read. No relocation of the directories takes place 
at this time 



MOVE 



REALLOCATE DIRECTORIES AND MEMBER SPACES 



Directories and member spaces are moved as specified 
in the reallocation tables. This operation is accomplished 
in two passes of the tables. 
If the move is to a lower disk address, the move is 
made on pass 1 . If the move is to a higher disk address 
the move is made on pass 2. Only the active blocks are 
moved. If the disk address is to remain the same, that 
directory or member space is bypassed on pass 1 and pass 2. 
One block at a time is moved. The update disk address 
subroutine, TKCO MP, can either increment or decrement 
the disk address by any predetermined displacement 




o 



TKFMT 



FORMAT UNUSEDTRACKS AND FETCH MAINT 



The format for unused tracks is the date field with an 
asterisk in byte position 1 . The unused tracks are 
formatted in all directories and the CI member space 
in this sequence: 

1. CI directory 

2. CI member space 

3. RL directory 

4. SS directory 

5. PL directory 

The label information area is moved to its new address if 
the address is lower. The label information area address 
and the procedure library address are updated in the system 
GETVISareaintheSVAbythetransient $$BSYSWR 



(Return to A 
root phase J 
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Chart 41. MAINTAF (Part 1 of 3) 



f MAINTAF J 



From MA I NT rootphase 
(module IJBLBA) 



MAINTAF 



INITIALIZATION 



INITLISE 

Copy device charact. from root phase 
and get $MAINDIF entry point 
Check if multiprogramming 




ENVERR... 



ERROR MESSAGE SET UP 



Set up error message * 
and link to print 



PROCRDO 



PROCESS 'ALLOC CONTROL STATEMENT 



The following loop is executed for all 
operands on a control statement 
(and its continuation cards): 

TYPEL 

Extract operand information from control 

card and check for valid syntax. 



YES 




Store operand information in user allocation 
table 'CIAL' and check for valid allocations 



YES 




Analyze next operand; if on continuation 
card read in continuation card first. 




Error Return 



(MAI NT ROOTS 
(IJBMCS) J 



SYNERR.. 



ERROR MESSAGE SETUP 



Setup error message 
and link to print 
routine ( I JBLBC) 



Cancel .[Return 



(MA I NT- Rout. *\ 
(IJBMCS) J 



3M21 1 INVALID OPERAND - Reason 
3MXXI ALLOCATION ERROR - Reason 



O 



BUILD RE ALLOCATION TABLE 1 of 2 



BLDREALT 

Read system directory 

Determine from system directory if library 

is present, (f so read in the descriptor 

record for CL, RL, SL, PL 

BLDTABL 

Fill into the re-allocation table 
from descriptor and system directory 
the values for the library as it exists. 
Fill into the re-allocation table 
from user allocation table 'CIAL' 
the values for the library as allocated 
per control statement. 
Fill in values for label area. 

INTL1 

Check if current libraries will fit 

into new allocations. 




Check if new library allocations will 
fit on device and into extents for 
SYSRESfile. 




DSPLN 



ALLERR.. 



ERROR MESSAGE SETUP 



Set up error message ** 
and link to print 
routine (IJBLBC) 



Cancell Return 



(MAI NT ROOT \ 
(IJBMCS) J 
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Chart 42. WAINTAF (Part 2 of 3) 




BUILD RE ALLOCATION TABLE 2 of 2 



DSPLN 

Set up maximal buffer space for operation. 

Scan the table to determine for each 

directory space and member space 

the direction fo move and set 

'PASSONE', 'PASSTWO'or 'STAY/NEW 

indicator. 

Clear entries for complete libraries 
if de-allocated or for member spaces 
which are new or stay (no action 
performed for those). 

Calculate relocation factor (if any) 

for directory entries, start address 

and other constants which are filled 

into the channel programs for actual move. 



UPDTE1 



UPDATE SYSTEM DIRECTORY & 

DESCRIPTORS* 



For de-allocated libraries set directory 
entry to zero. 

For new libraries fill into the skeleton 
descriptor the values from re-allocat ,table. 

For existing re-allocated libraries, 
fill in the new values into the 
descriptor and new start addresses 
into the system directory. 

Update VTOC for SYSRES by OPEN 

UPSTAT 

Set up status table information 



Note: This update is in storage only; 
write out is at actual move time. 



REALLOC 



RE-ALLOCATE THE LIBRARIES 1 of 2 



The following is done for all directory, 
member and label area entries in the 
re-allocation table: 



DOPASS1 




If directory moved write out descriptor 

for library. 

Build channel program from re-allocation 

table constants: 

Read blocks from directory (member space 

or label area). 

If directory moved and relocation of 
directory entries required relocate entries. 

Write out blocks of directory/member 
space or label area. 

If no more blocks left go to next 
entry in re-allocation table; else 
update channel programs and continue. 



Do the following for all directory, member 
and label area entries in the re-allocation table: 



DOPASS2 




Build channel program from re-allocation 
table constants. 

Read blocks from directory/member or 
label area. 



DOPASS3 



REALLOC 
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Chart 43. NAINTAF (Part 3 of 3> 



REALLOC 



POPASS2 
42 





RE-ALLOCATE THE LIBRARIES 



2 of 2 



If directory moved and relocation of 
directory entries required relocate entries. 

Write out blocks of directory /member 
space or label area. 

If no more blocks left go to next 
entry in table; else update channel 
programs and continue. 

Do the following for all directory, member, 
and label area entries in the re-allocation 
table. 



DOPASS3 




Skip member entries (are set to zero in table). 

If new directory for new library write 
descriptor and first record. 

It directory stays write out descriptor 
record, if member space was moved 
update directory entries with relocation 
factor. 



Write out system directory 



TERMINATION 



Restore JCL linkage bytes (via SVC13/SVC12) 
Call $$BSYSWR to update label area 
control blocks. 
Return to card scan in MAI NT root phase. 



CSSTRT 



I 



f IJBMCS J 



86 DOS/VS Librarian 



Chart 44. WAINTUP/F (Part , 1 of 3) (Detail Charts NA-PG) 



( MAINTUP/F J 



STARTUP 



Or 



INITIALIZE, READ SYSTEM DIRECTORY AND 
CHECK OPERAND(S) 



The switch at EOF is set to branch, and information 
from INITABLE is obtained for use by MAINTUP. 
The system directory is read in and the source libra- 
ry is checked for nonzero allocation, active entries, 
and available library and directory entries. If any of 
these conditions is not met, an appropriate error 
message is issued to SYSLST and control returns to 
MAINT at ENDJOB 



The statement is then checked for valid bookname 
characters, and the source directory (on SYSSLB, 
if it is assigned, or on SYSRES) for the book name. 
If the book is not found, an error message is issued, 
the deck is flushed to the END statement, and con- 
trol returns to the root phase 

• If there are no more operands the program 

branches to RDDISK 

SETPTR 

• If a resequence operand is a decimal number 
(or 'NO') it is converted to binary. 

• If a resequence operand is FS, a switch is set on 
and a branch is taken to RDDISK 



If there is a temporary (second) book name 
operand on the UPDATE statement, a branch is 
taken to CHKOP2 



If there is a change level operand, a branch is 
taken to CHKOP3 



CHKOP2 




PROCESS TEMPORARY UPDATE OPERAND 



If the temporary book name is valid (and not already 
in the library), and the delimiter is a blank, switches 
are set to resequence by 1, and a branch is taken to 
RDDISK 



If the operand delimiter is not a blank, a branch is 
taken to SETPTR to check for another operand 



CHK0P3 




-► 20 




PROCESS VM OPERAND 



If change level verification is not required, a switch 
is set to check the resequence operand. If there are 
no more operands, a branch to RDDISK is taken — - 
Otherwise, a branch to SETPTR is made to check 
for another operand : — 



If change level verification is required, the version 
and mod level numbers are checked for validity. 
If the END statement is being processed, branch to 
ENDPROC 



MAINT 
ENDJOB 




20 



MAINT 
CSSTART 



ENDPROC 



RDDISK 



SEARCH FOR BOOK NAME 



If the SYSSLB was assigned, the private directory is 
searched first for the book name. If not found, the 
SYSRES source library is then searched and if still 
not found, an error message is issued, the cards are 
flushed through the END statement, the switch at 
EOF is set to NOP, and — — — — - 



control returns to the root phase. If the book is 
found, continue to READRTN 



PROCDEL 
PROCADD 
PROCREP 

READRTN 



P ROCDE L 



m 



READ CONTROL STATEMENTS AND BRANCH 
TO ROUTINES 



Statements are read and printed on SYSLST. Each 

CTLCRD 

Each statement is checked to determine if it is a 

control statement (a right parenthesis followed by 

a blank) and the following branches are taken: 

• )ADD — 

• ) REP — 

• ) DEL -— 

• ) END 

If it is not a valid control statement, an error mes- 
sage is issued, all statements to the next control 
statement are flushed and the program branches to 
CTLCRD 



6 



MAINT 
CSSTART 
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Chart 45. MAINTUP/F (Part 2 of 3) (Detail Charts NA-PG) 
CTLCRD 



PROCADD 




PERFORM STATEMENT ADDITION 



Records from the book (from SYSSLB or SYSRES) 
are read into storage and expanded to the card 

image format. The record sequence number is-** 

compared to the statement sequence number: 

• If the record sequence number is low, the 
records is compressed into a library output 
block (and written when the block is full) in 
the COMPRES subroutine. The next 
record is read in, and the compare process is 
repeated. — 

• If the record sequence number is high, an error 
message is put out to SYSLST and statements are 
flushed to the next control statement. 



When the two sequence numbers are equal, the 
library record just read is compressed into the 
output block. Each source statement fol- 
lowing the ') ADD' is compressed into the 
output block as added source statements. This 
process continues until another control statement is 
read. Unless 'NO' or 'FS' resequencing was 
specified, all new statements are sequenced into the 
book, and subsequent book records are updated 
sequentially after them. — - — 



READRTN 



PROCREP 





44 



CTLCRD 



REPLACE STATEMENTS IN THE LIBRARY 



Records from the library book are read into 
storage and expanded to the card image format 
one at a time. The sequence number on the 
record is compared to the statement sequence number: 

• If the record sequence number is high, an 

error message is issued and statements are flushed 
until another control statement is read. The 
statement is printed and the program branches to 
CTLRCD to examine the next operation. — 

• If the record sequence number is low, the 
record number is compressed again (and 
written back in the library when the output 
block is full) in the COMPRES subroutine. 
Another record is read in, and the 
compare process is repeated. 

• When the two sequence numbers are equal, 

the record is put out to SYSLST and the statement 
is checked for a second sequence number. 
If there is only one operand, the record just 
read is replaced by the statement(s) 
following the REP statement. If a second se- 
quence number greater than the first appears 
on the statement, all records from the one just read 
through the record bearing the second sequence 
number are printed on SYSLST. 
These recoils are replaced by the statements 
following tne REP statement until another 
control statement is read. — —^ 



CTLCRD 



READRTN 



PROCEND 




BEGIN END STATEMENT PROCESSING 



If there are any operands on the END statement, 
appropriate switches are set. The following 
branches are taken: 

1 . If the END statement is the first control 
statement after the UPDATE and there are no 
operands on the update. 

2. If either one of the conditions in 1 does not 



exist and there were no previous errors. - 
If there were previous errors.— 



RTMAINT 



RETURN2 GTBK 



READRTN 



PROCDEL 




DELETE STATEMENT(S) FROM THE SOURCE 
LIBRARY 



Records from the library are read into storage and 
expanded to the card image format one at a time. 
The library record number is compared to statement 
sequence number: 

• If the record number is high, an error message 
is issued and the statements are flushed until 
another control statement is read.— — — - 



• If the record number is low, the record is 
again compressed (and written back into the 
library when the output block is full) in the 
COMPRES subroutine (Chart NO). Another 
record is read in and the compare process is 
repeated. 

® When the two sequence numbers are equal, 
the record to be deleted is put out to SYSLST. 
If there is no second sequence number in the 
statement, the program then branches to read 
another statement. — ■ — — — 



If a second sequence number greater than the 
first is on the statement, library records (following 
the one just deleted) with sequence numbers less 
than or equal to that of the second statement sequence 
number, are also deleted from the book and put 
out to SYSLST. — -~- 



5 

CTLCRD 



READRTN 
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Chart 46. MAINTUP/F (Part 3 of 3) (Detail Charts NA-PG) 



PROCEND 



PROCEND 



GTBK 



READ REMAINDER OF LIBRARY BOOK 



A branch-and-link to the GET subroutine is 
executed to read records of the book. Return 
is in line to this routine until the last record 
of the book is read. 



The GTBK routine resequences where 
required and branches to the COMPRES rou- 
tine where the records are compressed and 
written back into the library when a block is 
full. The COMPRES routine returns to RDBK. 
If an error switch has been set in 
the GET subroutine, RDBK, branches to RETURN2- 
Otherwise, another library record is read. 




CHKOP3 



ENDPROC 



END STATEMENT PROCESSING 



If a second operand CO exists on the END statement, 
the change level verification bit is set on. Another 
switch bit is set on to indicate operand(s) on the 
END statement. 

If the End statement is the first control statement after 
the UPDATE statement and there are no operands on 
the UPDATE statement, the program branches to 

RT MAINT. 

Else 





YES 



RETURN2 




RETURN TO MAINT 



Point to the root phase input buffer, set the switch 
at EOF to NOP, and load the address of MNTRETN 
for the exit address from CSSTART. 



© 



MAINT CSSTART 



PROCEND 



© Q 



RTMAINT 



UPDATE DIRECTORY AND RETURN 
TO MAINT 



A temporary name (if required) is moved to the old 
directory entry. 

If the END statement is the first control statement 
after the UPDATE statement and the V.M. operand 
is on the UPDATE statement, the change level is 
immediately updated by 1. 

If the END statement is the first control statement 
after the UPDATE statement and the V. M. operand 
is on the END statement the change level is moved 
to the directory entry. 

The updated old directory is written on SYSSLB 
or SYSRES. A test is again made to determine if 
the END statement is the first control statement 
after the UPDATE statement, If it is, branch 
-is taken 
If no temporary update is required, the system 
directory is updated to reflect the deleted entry. 
The old library directory entry with book name, 
starting address, and block count is moved to 
the new directory entry area. The change level is 
updated if necessary, or taken from the END 
statement, and moved to the new directory entry 
area. The new directory is then written out. 
The system directory is read in, updated, and 
written out again. Control then passes to the 
root phase. 




20 



MAINT 
CSSTART 
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Chart kl. $ LIBS? AT 



f $LIBSTAT J 



IJBL6I1 



INITIALIZATION FBA and CKD 



1. BUILD CCB and CCW's for 
write on SYS LOG. 

2. Initialize SYSLOG message. 

3. Open SYSLST 



INITIALZIATIONCKD 



1. Build CCB and CCW's to 
read the library descriptor 
for CKD devices 



INITIALIZATION FBA 



1. Build IORB and CCW's to 
read the library descriptor 
on FBA devices 



MAINFLOW 



1. Print main header line 
(MAINHDR). 

2. CKD RUN- 

3. FBA RUN 

4 Print status report for 

SVA(SVASTAT) 



When $LIBSTAT is called: 
REG 0: Address of status table 
REG 13: User save area, 

Work area, 

buffers. 

Code of $LIBSTAT is in SVA. 



(Return to J 

caller J 



*This program has no 
labels except for the 
subroutines mentioned 
which appear in the list at 
the end of the program. 



CKD RUN 



HANDLE ENTRIES FOR LIBRARIES ON CKD DEVICES 



1. For first entry print CKD header line (CKDHDR). 

2. Convert logical unit (CNVUNIT) and read volume serial 
number (GETVLSR) and print both. 

3. Read library descriptor (GETDI R). 

4. Compute items for status lines (SETCIL, SETOTH). 

5. Build and print directory line (BLDLN2). 

6. Build and print library line (BLDLN3). 

7. If necessary print messages for condense limit 
(HCLMSG) and destroyed library. 



( Return J 



FBA RUN 



HANDLE ENTRIES FOR LIBRARIES ON FIXED-BLOCK- 
ARCHITECTURE DEVICES 



1. For first entry print FBA header line (FBAHDR). 

2. Convert logical unit (CNVUNIT) and read volume serial 
number (GET VLSR) and print both. 

3. Read library descriptor (RDLIBDES). 

4. Compute items for status lines (GETITEMS). 

5. Build and print directory line (DIRLINE). 

6. 9uild and print library line (LIB LINE).. 

7. If necessary print messages for condense limit 
(HCLMSG) and destroyed library. 



( Return J 
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Chart 48. $WAINDIR (Part 1 of 10) 



$MAINDIR Overview: 



'IJBLBIO' $MAINDIR STRUCTURE 
MAIN FLOW 



-INITIALZ 



-INITMAIN 



-INITSLDL 
-INITSYSL 



-SDLSVA 



-SORTSDL 
-MERGESDL 



-REALLOC 
-OPTLINK 
•MAI NT 



-EXTR 



-RENM 

-BLOWUP 

-SORT 



-SPACETST 
-RUN 



-CHKEQL 



-PROCESS 



•FINISH 



PROCEDURES: 

- LOOKUP 

- GETENTRY 

- PUTENTRY 

- GETINP 

- PUTOUTP 



-CLOSE 
-LCCALL 

-GENMSG 
-SCANSDL 



-RASEQL 

-CATALOG 
■ UPDAT 



-LOAD 
-SVAMSG 



MSG 
EXTR 
DO 10 
DELET 
CLOSE 



PUTOUTP 

tKEEPDIST 
UPDSLD 



-MSG91 1 



- EXTR 

- SORT 

- RASCONV1 
.- RASCONV2 
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Chart 49. SMINDIR (Part 2 of 10) 



$MAINDIR Processing: 



START OF MAI NF LOW 



INITIALIZATION: 

INCLUDE 'INITIALZ' 



CALLED BY IPLOR JCL: 



INCLUDE 'SDLSVA' 
GOTO FINI 

CALLED BY LINKAGE EDITOR 
FOR //OPTION LINK: 

INCLUDE 'OPTLINK' 
GOTO FINI 

CALLED BY MAINT FOR REALLOCATION: 

INCLUDE 'REALLOC 
GOTO FINI 

TERMINATION OF CONDENSE: 

INCLUDE 'LCCALL' 
GOTO FINI 

CALLED BY LINKAGE EDITOR FOR // OPTION CATAL, OR 
BY MAINT FOR DELETC, RENAMC, QR 
BY MAINT FOR CONDENSE OR 
BY CORGZ FOR COPY: 

INCLUDE 'MAINT' 
GOTO FINI 

FINI: 

CLEANUP, GENERATION OF MESSAGES, 

LOAD INTOSVA: 

INCLUDE 'FINISH' 
RETURN 



ENDOFMAINFLOW 



INITIALZ 



INITIALIZATION FOR $MAINDIR 

1. PROVIDE ADDRESSABILITY OF STOWTABLE AND OF ARRAY 'TABIN' WHICH IS USED TO SORT THE 
STOWTABLE. 

2. MODIFY LAST BYTE USED TO FORCE PROTECTION EXCEPTION IF PARTITION IS TOO SMALL. 

3. OBTAIN STORAGE KEY WHICH ALLOWS TO WRITE INTO THE SUPERVISOR (NECESSARY FOR SLD 
AND FETCHTABLE UPDATE). 

4. STORE TIME OF DAY CLOCK CONTENTS IN TIME'. 

6. INITIALIZE COUNTER FOR MESSAGES AND SVA LOAD REQUESTS. 
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Chart 50. $MAINDIR (Part 3 of 10) 



INITMAIN 



MAIN INITIALIZATION 

1. CLEAR ALL SWITCHES, INITIALIZE POINTERS FOR SDL,SLD AND RAS LOADLIST. 

2. GET POINTERS TO SECOND LEVEL DIRECTORY AND SYSTEM DIRECTORY LIST ('INITSLDL'). 

3. FOR IPL GOTO 6. 

4. INSPECT FIRST STOWTABLE ENTRY. IF TYPE IS 'LINK' OR 'CATAL' THEN INSERT THIS 
PHASENAME INTO THE GETVIS AREA FOR AN 7/ EXEC ' USE. 

5. READ LIBRARY DESCRIPTOR RECORD. 

6. CHECK FOR SYSLST ASSIGNMENT ('INITSYSL'). 

7. INITIALIZE RETURNCODE 'RTCODE' TO ZERO. 



INITSLDL 



GET POINTERS TO SECOND LEVEL DIRECTORY AND SYSTEM DIRECTORY LIST 

1. MAKE CORRESPONDING FETCHABLE ENTRY ADDRESSABLE. 

2. IF WORKING ON SYSTEM LIBRARY 'SYSRES', THEN GET SLD AND SDL POINTERS FROM BG- 
FETCHABLE ENTRY. FOR A CONDENSE REQUEST INCREASE CONDENSE COUNTER 
BG-FETCHTABLE ENTRY. 

3. FOR PRIVATE CORE IMAGE LIBRARY OBTAIN POINTER TO PRIVATE SECOND LEVEL 
DIRECTORY (SLD). FOR A CONDENSE REQUEST INCREASE CONDENSE COUNTER IN 
PARTITION FETCHTABLE ENTRY. 



INITSYSL 



CHECK FOR SYSLST ASSIGNMENT 

1. CHECK IF SYSLST IS ASSIGNED AND SET 'SWASGN' TO 'YES' OR 'NO' ACCORDINGLY. 



SDLSVA 



SDL AND SVA BRINGUP FOR IPL AND JCL 

IPL REQUEST: 

IPL STORES THE DIRECTORY ENTRIES FOR THE SYSTEM PHASES IN SORTED AND COMPLETE 
FORM IN THE SDL AREA. IPL COMPUTES THE SPACE REQUIRED FOR THE FINAL AND COMPLETE 
SDL AND INITIALIZES THE HEADER OF SDL. 

$MAINDIR LOADS ALL REQUIRED PHASES IN THE SVA f UPDATES THE SDL ENTRIES, AND. 
GENERATES MESSAGES IF NECESSARY. 

JCL REQUEST: 

THE COMPLETE SDL WILL BE SORTED, SDL ENTRIES WILL BE COMPLETED BY INFORMATION 
FROM THE DISK AND THE PHASES WILL BE LOADED' 

IF NECESSARY MESSAGES WILL BE GENERATED, THE SDL ITSELF SERVES AS INDICATOR WHICH 
MESSAGES SHOULD BE GENERATED AFTER A SDL BUILD OR MAINTENANCE RUN. 
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Chart -51. S.ttAINDIF (Part 4 of 10) 



SORTSDL 



SORT AND COMPLETE THE SYSTEM DIRECTORY LIST 

CHECK IF THE NEW ADDED ENTRIES ARE ALREADY IN SDL. IF THEY EXIST ALREADY MAKE 
THEM TO END ENTRIES. 

SORT NEW JCL ENTRIES TOGETHER WITH ALREADY EXISTING IPL AND JCL ENTRIES ON 
PHASENAME. 

AFTER SORT DELETE DUPLICATE END ENTRIES. 

INPUT: THE NUMBER OF ELEMENTS IN THE ARRAY IS FOUND IMMEDIATELY BEFORE THE SVA 
STOWTABLE HEADER IN THE FIELD TBSNE'. 



MERGESDL 



COMPLETE SDL SKELETON BY FILLING IN DIRECTORY INFORMATION 



REALLOC 



UPDATE OF DIRECTORIES AFTER A REALLOCATION OF THE SYSTEM CORE IMAGE LIBRARY 

1. RE-WRITE SYSTEM CORE IMAGE DIRECTORY COMPLETELY, UPDATING ALL TTR'S WITH THE 
REALLOCATION FACTOR SUPPLIED BY MAINT IN A STOWTABLE WITH ONLY 1 ENTRY 
(TYPE 'REALLOC'). 

2. UPDATE THE TTR'S OF ALL SYSTEM DIRECTORY LIST ENTRIES. 

3. UPDATE RAS LOADLIST IN THE SUPERVISOR. 



OPTLINK 



WRITE ENTRIES IN LAST DIRECTORY TRACK FOR 7/ OPTION LINK, // EXEC LNKEDT' 

SERVES A REQUEST FROM THE LINKAGE EDITOR FOR A TEMPORARY LINK' 

THE LINKAREA IS AT THE END OF THE CIL DIRECTORY. IT CONSISTS OF 8 BLOCKS, STARTING 

ON TRACK BOUNDARY. ONE BLOCK IS 256 BYTES LONG, IT STARTS WITH 2 BYTES WHICH GIVE 

THE NUMBER OF BYTES USED IN THE BLOCK. 

(THIS NUMBER INCLUDES THE LENGTH OF THE 2 BYTES.) 

AFTER THIS 2 BYTES THERE CAN BE UP TO 8 ENTRIES, EACH ONE WITH A CONSTANT LENGTH 

OF 30 BYTES. 

THE BUFFER AREA USED FOR THIS PROCESS IS AN OVERLAY TO THE INPUT BUFFER AREA, 
WHICH IS NOT NEEDED FOR OPTION LINK AFTER THE 'TABIN' ENTRIES HAVE BEEN BUILT UP. 



LCCALL 



LAST CALL OF CONDENSE TO HAVE THE LIBRARY DESCRIPTOR WRITTEN OUT 
1. CLEAR THE 'DESTRYD' IN THE LIBRARY DESCRIPTOR AND WRITE IT ON DISK. 
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Chart 52. $MINDIR (Part 5 of 10) 



MAI NT 



UPDATE ALL DIRECTORIES 

BUILD SORTED ARRAY TABIN', CONTAINING PHASENAMES, TYPECODES AND POINTERS TO 

STOWTABLE ENTRIES. 

START READING THE DIRECTORY AT THE FIRST BLOCK WITH A KEY HIGHER THEN OR EQUAL 

TO THE FIRST ENTRY IN ARRAY TABIN'. 

FROM THIS POINT ON THE DIRECTORY WILL BE REWRITTEN COMPLETELY. 

'MERGE' THE ARRAY 'TABIN' WITH THE DIRECTORY TAKING THE FOLLOWING ACTIONS: 

!JILCASJ_OF^EQyAL^^ 

TYPE^ ACTION 

CATAL - ADD STOWTABLE ENTRY TO OUTPUT RECORD, UPDATE LIBRARY DESCRIPTOR 
ENTRY, BUMP DIRECTORY INPUT POINTER. UPDATE RAS LOADLIST, UPDATE 
SYSTEM DIRECTORY LIST AND SHARED VIRTUAL AREA IF APPLICABLE. 

UPDATE - ADD STOWTABLE ENTRY TO OUTPUT RECORD, BUMP DIRECTORY INPUT POINTER. 
UPDATE RAS LOADLIST AND SYSTEM DIRECTORY LIST IF APPLICABLE. 

DELETE - UPDATE LIBRARY DESCRIPTOR ENTRY AND, IF APPLICABLE, THE RAS LOADLIST, 
THE SYSTEM DIRECTORY LIST AND THE SVA. 
THEN BUMP DIRECTORY INPUT POINTER. 

RENAME - SAME AS DELETE (SEE INTRODUCTORY COMMENTS OF SEGMENT EXTR), BUT 
WITHOUT CHANGING THE DESCRIPTOR ENTRY. 

2. IF NO EQUALITY BETWEEN STOWTABLE AND DIRECTORY: 



CATAL 

UPDATE 
DELETE 
SPECIAL 



- SAME AS WITH EQUALITY, BUT WITHOUT BUMPING INPUT DIRECTORY POINTER, 
AND WITH OTHER UPDATING OF LIBRARY DESCRIPTOR. 

- ERROR. GENERATE DUMP. 

- ERROR. ISSUE MESSAGE PHASE NOT FOUND. 

- SAME AS CATAL, BUT WlfHOUT CHANGING THE LIBRARY DESCRIPTOR ENTRY 
(SEE INTRODUCTORY COMMENTS OF SEGMENT 'EXTR'). 



RENM 



FOR // EXEC MAINT RENAMC 



BLOWUP 



DELETE PRIVATE CORE IMAGE LIBRARY COMPLETELY, AS REQUESTED BY A 'DELETC ALL' 
COMMAND. 
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Chart 53. SMAINDIR (Part 6 of 10) 



SPACEJST 



CHECK IF THERE IS ENOUGH SPACE FOR ENTRIES TO BE ADDED 

WHEN ENTRIES ARE ADDED TO THE CORE IMAGE DIRECTORY AN OVERFLOW CAN OCCUR. 

TO ENSURE INTEGRITY A FICTIVE UPDATE WILL BE PERFORMED TO TEST IF THERE IS ENOUGH 
SPACE IN THE DIRECTORY (THIS IS CALLED DRY RUN, THE DIRECTORY WILL NOT BE MODIFIED 
IN ANY WAY). 

IT IS NOT POSSIBLE TO COMPUTE THE SPACE NEEDED IN ADVANCE BECAUSE THE DIRECTORY 
ENTRIES HAVE VARIABLE LENGTH. 

BECAUSE THE DIRECTORY IS SORTED ON PHASENAMES ONE DOESN'T KNOW HOW THE FINAL 
LAYOUT WILL BE WITHOUT THIS DRY RUN. 



RUN 



UPDATE THE CORE IMAGE DIRECTORY WITH THE INFORMATION FROM THE STOWTABLE 

NOTE: AFTER INITIALIZATION ALL INPUT BUFFERS HAVE BEEN FILLED. 'INPTR' POINTS TO 

THE FIRST APPLICABLE INPUT ENTRY. 'OUTPTR' POINTS TO THE AREA WHERE TO MOVE 
FIRST APPLICABLE OUTPUT ENTRY. 



CHKEQL 



CHECK EQUALITY BETWEEN CURRENT STOWTABLE ENTRY AND DIRECTORY INPUT, SYSTEM 

DIRECTORY LIST AND RAS LOADLIST. 

INFORMATION ABOUT EQUALITY IS STORED IN 3 SWITCHES. 



RASEQL 



CHECK FOR RAS TRANSIENT 

1. CHECK IF THIS IS A RAS TRANSIENT. 

2. CALCULATE RAS LOADLIST INDEX. 

3. CONVERT TTR FROM STOWTABLE ENTRY TO C-H-R DISK ADDRESS. 



PROCESS 



SELECT 'CATALOG', 'UPDAT' OR DELET' FOR EXECUTION. 
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Chart 54. $MINDIR (Part 7 of 10) 



CATALOG 



ADD 1 STOWTABLE ENTRY TO DIRECTORY OUTPUT. 



UPDAT 



UPDATE DIRECTORIES FOR CONDENSE 

1. IF PHASENAME NOT IN DIRECTORY GENERATE DUMP (SYSTEM ERROR). 

2. REPLACE DIRECTORY ENTRY BY NEW ONE FROM STOWTABLE. 



FINISH 



CLEANUP BEFORE RETURN 

1. DEQUEUE FETCH REQUESTS, UNLESS CONDENSE OR REALLOCATION IN PROCESS. 

2. GENERATE MESSAGES AFTER A 'MAINT' RUN. 

3. LOAD PHASES IN THE SHARED VIRTUAL AREA (IF NECESSARY). 

4. RESTORE STORAGE KEY TO ORIGINAL VALUE. 



SCANSDL <&*; 



SCAN SYSTEM DIRECTORY LIST TO LOAD PHASES INTO THE SVA. 



LOAD 



LOAD 1 PHASE IN THE SHARED VIRTUAL AREA (SVA). 



SVAMSG 



GENERATE SDL AND SVA MESSAGES 

GENERATE MESSAGES FOR ERROR SITUATIONS DETECTED DURING SDL UPDATE OR SVA BUILD 
PROCESS. 

INPUT: SDL ENTRIES WITH FLAGS IN SWITCH BYTE. 

SWITCH 'SWSVAFUL' AND SAVED NAME IN 'ARGUMENT' 

OUTPUT: MESSAGES ON SYSLOG OR SYSLST. 



GENMSQ 



GENERATE MESSAGES 

GENERATE THESE MESSAGES WHICH COULD NOT BE DISPLAYED BECAUSE FETCH WAS NOT POSSIBLE. 

INPUT: MESSAGE BITS IN TABIN'. 

MSG COUNT. 

OUTPUT: MESSAGES ON SYSLOG OR SYSLST. 

FUNCTION: SCAN TABIN' AND GENERATE MESSAGES. 
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Chart 55'. SMINDIR (Part 8 of 10) 



DELET 



FUNCTION: HONOUR DELETE REQUEST BY SKIPPING INPUT DIRECTORY ENTRY AND UPDATE 
LIBRARY DESCRIPTOR ACCORDINGLY. ISSUE DIAGNOSTIC MESSAGE IF THE 
APPLICABLE ENTRY IS NOT PRESENT IN INPUT. 

NOTE 1 : FOR A DELETE 'PROG.ALL' REQUEST MORE THAN ONE ENTRY MAY BE SKIPPED. 

NOTE 2: IF AN ENTRY IN THE SYSTEM DIRECTORY LIST EXISTS FOR THIS PHASE IT IS 

CLEARED TO BINARY ZEROES. ONLY THE NAME REMAINS THERE, THE NOT FOUND 
BIT IS TURNED ON, AND THE STOWTYPE IS SAVED. 

NOTE 3: IF A RAS TRANSIENT IS DELETED (PHASENAMES IN RANGE $$RAST00 - $$RAST99), 

THE DISK ADDRESS IN THE RAS LOADLIST IN THE SUPERVISOR IS MADE INVALID. 



MSG 



DISPLAY 'MSGAREA' ON SYSLST IF ASSIGNED, OTHERWISE ON SYSLOG. 



LOOKUP 



SCAN DIRECTORYTO FIND A PHASENAME 

1. READ FIRSTDIRECTORY BLOCK WITH KEY HIGHER THAN OR EQUAL TO 'ARGUMENT'. 

2. CHECK IF THE PHASENAME IN 'ARGUMENT' EXISTS IN THE CORE IMAGE DIRECTORY. 
'FOUND' IN 'SWITCHES' IS SET TO 'YES' OR 'NO'. 

3. 'DIRPTR' WILL POINT TO THE DIRECTORY ENTRY WHERE THE SCAN STOPPED. 



EXTR 



BUILD ARRAY 'TABIN', CONTAINING PHASENAMES, TYPECODES AND POINTERS TO STOWTABLE 
ENTRIES. 

INPUT: STOWTABLE 

LAYOUT OF TABIN: ENTRIES CONSISTING OF 
8 BYTES PHASENAME 

1 BYTE TYPECODE 

3 BYTES POINTER TO ORIGINAL ENTRY 

2 BYTES INFORMATION WHICH MESSAGES SHOULD BE DISPLAYED 
ENTRIES SORTED ON PHASENAME. 

LOCATION 

OF TABIN: THE AREA POINTED TO BY TABREG AS INITIALIZED BY THE GETMAIN 

PROGRAMMER MACRO EXPANSION. 

SPECIAL CASE: IN ARRAY 'TABIN' TWO ENTRIES ARE CREATED FOR A 'RENAME' TYPE 
'STOWTAB' ENTRY. 

1. 'RENAME' WITH THE OLD NAME 

2. 'SPECIAL' WITH THE NEW NAME 

BOTH POINTING TO THE SAME 'STOWTAB' ENTRY. 

NOTES ABOUT 'RENAME' AND 'SPECIAL' PROCESSING: 

BEFORE THESE 2 ENTRIES ARE CREATED 2 CHECKS ARE MADE: 

1. 'OLDNAME' MUST BE IN THE DIRECTORY, OTHERWISE A DIAGNOSTIC MESSAGE 
WILL BE GIVEN: PHASE 'OLDNAME' NOT IN LIBRARY, AND THE RENAME 
REQUEST IS NOT PROCESSED. 

2. 'NEWNAME' MUST NOT BE IN THE DIRECTORY, OTHERWISE A DIAGNOSTIC 
MESSAGE WILL BE GIVEN: PHASE 'NEWNAME' ALREADY IN LIBRARY, AND THE 
RENAME REQUEST WILL NOT BE PROCESSED. 

THE INFOR FROM THE 'OLDNAME' DIRECTORY ENTRY IS SAVED IN THE 
STOWTABLE ENTRY, WHICH HAS ALWAYS THE MAXIMUM SIZE (30 BYTES). 
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Chart 56. $KAINDIR (Part 9 of 10) 



SORT 



SORT ARRAY 'TABIN' ON PHASENAME. 

METHOD: SHELLSORT. 

INPUT: THE NUMBER OF ELEMENTS IN THE ARRAY IS FOUND IN THE STOWTABLE HEADER 
FIELD 'NROFENTR'. 



GETENTRY 



1. PROVIDE AN ADDRESS IN 'INPTR' OF AN INPUT DIRECTORY ENTRY. 

2. IF SWFIRST='YES'THEN INITIALIZE DIRECTORY INPUT. 



PUTENTRY 



1. WHEN CALLED THE FIRST TIME: 

SET UP DIRECTORY OUTPUT CCB AND CCW'S, INITIALIZE POINTERS TO CCW STRING AND 
OUTPUT BUFFER, SET UP DATA FIELD WITH BINARY ZEROES AND A BYTE COUNT OF 2, 
CALCULATE RELATIVE BLOCKNUMBER-1 OF FIRST DIRECTORY BLOCK READ AND INSERT IT 
INTO SAVED LIBRARY DESCRIPTOR ENTRY (FIELD 'DESDU'), MAKE FIELD 'DESDA' (#OF 
BLOCKS AVAILABLE) CONSISTENT WITH 'DESDU' BY INSERTING THE DIFFERENCE BETWEEN 
TOTAL #OF BLOCKS AND 'DESDU', INITIALIZE OUTPUT DISK ADDRESS WITH ADDRESS OF 
FIRST INPUT BLOCK. 

2. FOR NORMAL CALLS: 

IF PAST END OF BUFFER THEN WRITE THE BLOCK WITH A WRITE KEY AND DATA COMMAND, 

CHAINED TO A READ COUNT MULTIPLE TRACK, BUMP 'DESDU' BY 1 AND 'DESDA' BY -1, SET 

UP DATA FIELD WITH BINARY ZEROES AND A BYTE COUNT OF 2. RESET 'OUTPTR' TO START 

OF BLOCK. UPDATA SLD IF APPLICABLE. 

DEPENDING ON SWITCH 'SWINPTR' MOVE CURRENT INPUT ENTRY OR CURRENT STOWTABLE 

ENTRY TO OUTPUT BUFFER, MOVE PHASENAME TO 'KEYOUT' AND BUMP BYTECOUNT BY 

LENGTH OF OUTPUT ENTRY. INCREASE 'OUTPTR' WITH LENGTH OF CURRENT DIRECTORY 

ENTRY. 

FOR THE LAST ( END ) DIRECTORY ENTRY: WRITE OUT THE BLOCK WITH THE END ENTRY 

AND FILL REST OF TRACK WITH EMPTY BLOCKS, ALL HAVING A KEY OF .16 XT'. 



GETINP 



1. ONLY THE FIRST TIME: BUILD CCW STRING TO FILL ALL INPUT BUFFERS. 

2. INITIALIZE CCB AND FILL ALL EMPTY BUFFERS. 



PUTOUTP 



1. WRITE ONE OUTPUT BLOCK (KEY AND DATA). 

2. FOR LAST BLOCK OF TRACK: UPDATE SECOND LEVEL DIRECTORY. 



CLOSE 



WRITE UPDATED LIBRARY DESCRIPTOR 

1. READ FIRST DIRECTORY BLOCK AGAIN. 

2. REPLACE OLD LIBRARY DESCRIPTOR ENTRY BY NEW VERSION. 

3. RE-WRITE FIRST DIRECTORY BLOCK. 
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Chart 57. $HAINDIR (Part 10 of 10) 



RASCONV1 



CONVERT THE 2-BYTE FIELD 'RASARG1' FROM CHARACTER FORMAT TO BINARY FORMAT AND 
ADD 1 TO MAKE IT USABLE AS INDEX INTO THE RAS LOADLIST IN THE SUPERVISOR. 



RASCONV2 



CONVERT TTR TO PRE-RELEASE 29 'CHR' FORMAT. 
INPUT AND OUTPUT IN FIELD 'RASARG2'. 
THE 'R' PART OF THE FIELD IS NOT TOUCHED. 



DOIO 



INPUT: REGISTER 1 POINTS TO A CCB, FOR WHICH I/O SHOULD BE PERFORMED. 

FUNCTION: DO READ OR WRITE INCLUDING ALL CHECKS. 

FOR CONDENSE OR REALLOCATION THE SEARCH ARGUMENT HAS TO BE ALWAYS 
PRESENT. THEREFORE A RETRY ON NO RECORD FOUND WILL BE DONE. AFTER 
10 TIMES OF RETRY AN ERROR WILL INDICATED BY A RETURN CODE OF 16. 



KEEPDIST 



KEEP DISTANCE 

WHEN LARGE NUMBERS OF PHASES ARE CATALOGED IT WILL BE NECESSARY SOMETIMES TO 
WRITE A DIRECTORY BLOCK BEFORE IT HAS BEEN READ. AS THIS WOULD CAUSE PART OF THE 
DIRECTORY TO BE DUPLICATED, AND ANOTHER PART TO BE SKIPPED, PRECAUTIONS MUST BE 
TAKEN. 

1. SHIFT THE CURRENT INPUT BUFFER AND ALL BUFFERS FOLLOWING OVER ALL INPUT 
BUFFERS WHICH HAVE BEEN PROCESSED ALREADY. 

2. FILL INPUT BUFFERS FREED THIS WAY WITH NEW DIRECTORY INFO. 



UPDSLD 



UPDATE SECOND LEVEL DIRECTORY 

1. INSERT KEY OF LAST DIRECTORY BLOCK ON A TRACK IN THE APPLICABLE SECOND LEVEL 
DIRECTORY ENTRY. 

2. INSERT 16 X'F' IN LAST SLD ENTRY. 

3. ISSUE WARNING MESSAGE 3M91I IF MORE DIRECTORY TRACKS ARE USED THAN SLD ENTRIES 
EXIST. 



MSG91I 



PREPARE WARNING MESSAGE 3M91I ONLY ONCE PER JOBSTEP. 
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Chart 58. SttAINDIF (Part 1 of 12) 



fcMAINDIF Overview: 



MAIN FLOW 



INITIALZ 
L. 



-INITMAIN 



$MAINDIF STRUCTURE OVERVIEW 



-INITSLDL 

-INITFBA 

•RDLIBDES 

-INITLIBD 

-INITSYSL 



SDLSVA 



-SORTSDL 

L 



MERGESDL 

' LOOKUP 



SCLVLDR 
DELETALL 



MAI NT 



-WRDIRREC 
-WRLIBDES 

-EXTR 

-SPACETST 

-RUN 



-LOOKUP 
-PUTENTRY 
-GETENTRY 
-CHKEQL 



-RASCONV 



-PROCESS 



-CATALOG 



-DE LET 
-PUTENTRY 



-UPDAT 
-DELET 
-PUTENTRY 



■ REALLOC 



-OPTLINK 



-LCCALL 
I 



-FINISH 



-WRLIBDES 
-SCLVLDR 

-RDDIRREC 

-RASCONV 

-WRDIRREC 

-EXTR 
-WRDIRREC 

-WRLIBDES 

-GENMSG 



-MSG 



-SCANSDL 



-LOAD 



-SVAMSG 



-MSG 



SUBROUTINES: 
EXTR 



DELET 



-RENM 
-SORT 

-RASCONV 
-GETENTRY 



GETENTRY 

I- RDDIRREC 



PUTENTRY 



•WRDIRREC 
-MSG 



SCLVLDR 

MSG 

LOOKUP 



-RDDIRREC 



RDLIBDES 
WRLIBDES 

RDDIRREC 
WRDIRREC 

RASCONV 

INTERROR 
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Chart 59. $1HAIMDIF (Part 2 of 12) 

$MAINDIF Processing: 
INITIALZ 



INITIALIZATION FOR SMAINDIF 

1. SET UP LOCAL STOW TABLE AND BUFFER POINTERS. 

2. MODIFY LAST BYTE USED TO FORCE PROTECTION EXCEPTION. 

3. OBTAIN STORAGE KEY 0. 

4. STORE TIME OF DAY CLOCK CONTENTS IN TIME'. 

5. MAIN INITIALIZATION ('INITMAIN'). 

6. INITIALIZE SDL-POINTER AND COUNTERS. 



INITMAIN 



MAIN INITIALIZATION 

1. CLEAR ALL SWITCHES AND INITIALIZE POINTERS. 

2. GET POINTERS TO SECOND LEVEL DIRECTORY AND SYSTEM DIRECTORY LIST ('IN)TSLDL'). 

3. FOR IPLGOT0 9. 

4. INSPECT FIRST STOW TABLE ENTRY. IFTYPE IS 'LINK' OR 'CATAL'THEN INSERT THIS PHASENAME 
INTO THE GETVIS AREA FOR AN 7/ EXEC USE. 

5. RELOCATION AND INITIALIZATION OF I/O CONTROL BLOCKS AND COMMANDS ('INITFBA'). 

6. READ LIBRARY DESCRIPTOR RECORD ('RDLIBDES'). 

7. INITIALIZATION OF CONTROL BLOCKS WHICH NEED VALUES OF THE LIBRARY DESCRIPTOR 
RECORD ('INITLIBD'). 

8. INITIALIZE BUFFER VALUES. 

9. INITIALIZE RETURN CODE 'RTCODE' TO ZERO. 
10. CHECK FOR SYSLST ASSIGNMENT ('INITSYSL'). 



INITSYSL 



CHECK FOR SYSLST ASSIGNMENT 

1. CHECK IF SYSLST IS ASSIGNED AND SET 'SWASGN' TO 'YES' OR 'NO' ACCORDINGLY. 



INITSLDL 



GET POINTERS TO SECOND LEVEL DIRECTORY AND SYSTEM DIRECTORY LIST 

1. MAKE CORRESPONDING FETCHTABLE ENTRY ADDRESSABLE. 

2. IF WORKING ON SYSTEM LIBRARY 'SYSRES', THEN GET SLD AND SDL POINTERS FROM BG- 
FETCHTABLE ENTRY. FOR A CONDENSE REQUEST INCREASE CONDENSE COUNTER BG-FETCH- 
TABLE ENTRY. 

3. FOR PRIVATE CORE IMAGE LIBRARY OBTAIN POINTER TO PRIVATE SECOND LEVEL DIRECTORY 
(SLD). FOR A CONDENSE REQUEST INCREASE CONDENSE COUNTER IN PARTITION FETCHTABLE 
ENTRY. 



INITFBA 



RELOCATION AND INITIALIZATION OF ALL I/O CONTROL BLOCKS AND COMMANDS 

1. TRANSFER 'STATIC LOCAL' DATA INTO 'AUTOMATIC AREA. 

2. RELOCATE ADDRESSES AND INITIALIZE lORB'S AND CCW'S. 



INITLIBD 



INITIALIZATION OF CONTROL BLOCKS WHICH NEED VALUES OF THE LIBRARY DESCRIPTOR 
RECORD. 
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Chart 60. SMINDIP (Part 3 of 12) 



SDLSVA 



SDL AND SVA BRINGUP FOR IPL AND JCL 

IPL REQUEST: 

IPL STORES THE DIRECTORY ENTRIES FOR THE SYSTEM SVA PHASES IN SORTED AND COMPLETE 
FORM IN THE SDL AREA' IPL COMPUTES THE SPACE REQUIRED FOR THE FINAL AND COMPLETE 
SDL AND STORES IT IN THE HEADER OF THE SVA. 

THIS SPACE HAS TO BE 12 BYTES LONGER THAN THE COMPUTER VALUE. THESE 12 BYTES ARE 
TEMPORARY BYTES USED FOR THE IPL STOW TABLE AND FOR JCL. 

fcMAINDIF LOADS ALL REQUIRED PHASES INTO THE SVA AND UPDATES THE HEADER OF THE SVA 
ACCORDINGLY IN SEGMENT 'LOAD'. 

JCL REQUEST: 

SORT COMPLETE SYSTEM DIRECTORY LIST. 

MERGE ENTRIES WITH DIRECTORY, FILLING IN DIRECTORY INFORMATION, AND INCREMENT 

'SDLBCNT' IF REQUEST ENCOUNTERED TO LOAD PHASE INTO VIRTUAL LIBRARY. 

1. INSERT AND ENTRY (FF..FF) AT END OF THE USED SDL. 

2. SORT AND COMPLETE THE SYSTEM DIRECTORY LIST FOR JCL ('SORTSDL'). 

3. FOR IPL SAVE NUMBER OF PHASES LATER TO BE LOADED INTO SVA. 



SORTSDL 



SORT AND COMPLETE THE SYSTEM DIRECTORY LIST 

CHECK IF THE NEW ADDED ENTRIES ARE ALREADY IN SDL. IF THEY EXIST ALREADY MAKE THEM 
TO END ENTRIES. 

SORT NEW JCL ENTRIES TOGETHER WITH ALREADY EXISTING IPL AND JCL ENTRIES ON PHASENAME. 

DELETE DUPLICATE END ENTRIES. 

IF NEW ADDED ENTRIES EXIST' INCLUDE 'MERGESDL'. 

INPUT: THE NUMBER OF ELEMENTS IN THE ARRAY IS FOUND IN THE TBSNE'. 
JCL STORES ITS ENTRIES AFTER THE EXISTING ENTRIES IN SDL. 
ONESTOWTABLE HEADER IS USED FOR JCL AND IPL (INITIALIZED BY IPL, AFTER 'TBSNE'). 



MERGESDL 



MERGE SDL WITH CORE IMAGE DIRECTORY 

COMPLETE SDL SKELETON BY FILLING IN DIRECTORY INFORMATION AND INCREMENT 'SDLBCNT' 
clF A BUI LD R EQUEST WAS ISSUED. 
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Chart 61. $MAINDIF (Part 4 of 12) 



REALLOC 



UPDATE DIRECTORIES AFTER A REALLOCATION OF THE SYSTEM CORE IMAGE LIBRARY 

1. RE-WRITE SYSTEM CORE IMAGE DIRECTORY COMPLETELY, UPDATING ALL ADDRESSES WITH 
THE REALLOCATION DISPL. SUPPLIED BY MAINT IN A STOWTABLE WITH ONLY 1 ENTRY (TYPE 
'REALLOC') BY 'RDDIRREC AND 'WRDIRREC. 

2. UPDATE THE ADDRESSES OF ALL SYSTEM DIRECTORY LIST ENTRIES (FOR FBA ALL ADDRESSES 
AREBLOCKNUMBERS). 

3. UPDATE RAS LOADLIST IN THE SUPERVISOR ('RASCON V). 



OPTLINK 



WRITE ENTRIES IN LAST DIRECTORY RECORD FOR 7/ OPTION LINK' 

THE LINKAGE EDITOR CALLS TO BUILD A LINK DIRECTORY. A NUMBER OF PHASES WILL BE TEM- 
PORARILY STORED IN THE SYSTEM OR PRIVATE LIBRARY. THE LINK DIRECTORY FOR THESE PHASES 
IS IN ONE DIRECTORY RECORD AND CONSISTS ONLY OF ENTRIES, WITHOUT A DESCRIPTOR RECORD. 
THIS DIRECTORY IS SORTED BY ALPHABET. 

THE LINK DIRECTORY IS ALWAYS THE LAST RECORD IN THE DIRECTORY SPACE ALLOCATED. 

1. SPECIAL HANDLING FOR ONLY ONE PHASE. 

2. BUILD STOWTABLE EXTRACT IN TABIN ('EXTR'). 

3. WRITE LINK DIRECTORY RECORDS ONTO DISK ('WRDIRREC'). 

4. INSERT THE BEGIN OF THE LINK DIRECTORY IN THE FETCH TABLE. 



LCCALL 



FINAL CALL OF CONDENSE TO HAVE THE LIBRARY DESCRIPTOR WRITTEN OUT 

1. RESET 'DSTROYD' TO ZERO. 

2. UPDATE LIBRARY DESCRIPTOR. 

3. WRITE LIBRARY DESCRIPTOR ONTO DISK ('WRLIBDES'). 

4. SET RETURN CODE. 



DELETALL 



DELETE PRIVATE CORE IMAGE LIBRARY COMPLETELY, AS REQUESTED BY A 'DELETC ALL' 
COMMAND 

1. WRITE AN END ENTRY (DIRNME-FFFFFFFF) IN FIRST DIRECTORY BLOCK AND INITIALIZE 
U BYTES. 

2. UPDATE LIBRARY DESCRIPTOR RECORD. 

3. WRITE LIBRARY DESCRIPTOR RECORD ONTO DISK. 

4. SET RETURN CODE. 
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Chart 62. SftAINDIF (Fart 5 of 12) 



MA I NT 



UPDATE ALL DIRECTORIES 

BUILD SORTED ARRAY TABIN', CONTAINING PHASENAMES, STOWTYPES AND POINTERS TO 

STOW TABLE ENTRIES. 

START READING THE DIRECTORY AT THE FIRST BLOCK WITH A NAME HIGHER THAN OR EQUAL TO 

THE FIRST ENTRY IN ARRAY 'TABIN'. 

FROM THIS POINT ON THE DIRECTORY WILL BE REWRITTEN COMPLETELY. 

'MERGE' THE ARRAY 'TABIN' WITH THE DIRECTORY TAKING THE FOLLOWING ACTIONS: 

1. IF NAME IN 'TABIN' ENTRY EXISTS IN A DIRECTORY ENTRY: 



CATAL: 

ADD STOW TABLE ENTRY TO OUTPUT RECORD, UPDATE LIBRARY DESCRIPTOR RECORD, BUMP 
DIRECTORY INPUT POINTER. 

UPDATE RAS LOADLIST, UPDATE SYSTEM DIRECTORY LIST AND SHARED VIRTUAL AREA IF APPLIC- 
ABLE. 

UPDATE: 

ADDSTOWTABLE ENTRY TO OUTPUT RECORD, BUMP DIRECTORY INPUT POINTER, UPDATE RAS 
LOADLIST AND SYSTEM DIRECTORY LIST IF APPLICABLE. 

DELETE: 

UPDATE LIBRARY DESCRIPTOR RECORD AND, IF APPLICABLE, THE RAS LOADLIST, THE SYSTEM 

DIRECTORY LIST AND THE SVA. 

THEN BUMP DIRECTORY INPUT POINTER. 

RENAME: 

SAME AS DELETE (SEE INTRODUCTORY COMMENTS OF EXTR), BUT WITHOUT CHANGING THE 
DESCRIPTOR RECORD. 

2. IF NAME IN TABIN' ENTRY NOT FOUND IN THE DIRECTORY: 



CATAL: 

SAME AS WITH EQUALITY, BUT WITHOUT BUMPING INPUT DIRECTORY POINTER' AND WITH OTHER' 
UPDATING OF LIBRARY DESCRIPTOR. 

UPDATE - SYSTEM ERROR. GENERATE DUMP. 

DELETE - ERROR. ISSUE MESSAGE PHASE NOT FOUND. 

SPECIAL: 

SAME AS CATAL, BUT WITHOUT CHANGING THE LIBRARY DESCRIPTOR ENTRY (SEE INTRODUCTORY 
COMMENTS OF 'EXTR'). 

fHESTOWTABLE HAS TO BE TERMINATED BY AN END ENTRY, OTHERWISE THE ALGORITHM OF 
'MAINT ' Wl LL NOT WORK. 

1- INITIALIZE NUMBER OF MESSAGESTO BE GENERATED AFTER THE MAINT RUN. 

2. CALL 'EXTR' TO BUILD ARRAY TABIN'. 

3. TEST IF THERE IS ENOUGH SPACE FOR NEW ENTRIES TO BE ADDED (DRYRUN CAN BE NECESSARY). 

4. UPDATE THE CORE IMAGE DIRECTORY WITH THE INFORMATION FROM THE STOW TABLE ('RUN'). 

5. WRITE THE UPDATED LIBRARY DESCRIPTOR ONTO DISK ('WRLIBDES'). 

6. IF NECESSARY REFORMAT THE SECOND LEVEL DIRECTORY ('SCLVLDR'). 
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Chart 63. IMIIDXF (Part 6 of 12) 



RENM 



RENAME OF PHASE IN CORE IMAGE LIBRARY 

FOR FUNCTIONS SEE INITIAL COMMENTS IN 'EXTR'. 



SORT 



SORT ARRAY 'TABIN' ON PHASENAME 

METHOD: SHELLSORT. 

INPUT: THE NUMBER OF ELEMENTS IN THE ARRAY IS FOUND 'TABNOEN'. 



SPACETST 



TEST IF THERE IS ENOUGH SPACE FOR NEW ENTRIES TO BE ADDED 

WHEN ENTRIES WILL BE ADDED ONE HAS TO ASSURE THAT THEY FIT INTO THE DIRECTORY. 

THE NUMBER OF AVAILABLE ENTRIES IN THE DIRECTORY WILL BE COMPUTED (THIS IS POSSIBLE, 

BECAUSE ALL ENTRIES HAVE THE SAME LENGTH) AND COMPARED WITH THE NUMBER OF ENTRIES 

INTHESTOWTABLE. 

IF THERE ARE ENOUGH ENTRIES IN THE DIRECTORY AVAILABLE, THE UPDATE CAN START. 

IF THERE ARE NOT ENOUGH ENTRIES AVAILABLE IT CAN BE THAT PHASES WILL BE CATALOGED 
WHICH ARE ALREADY IN THE DIRECTORY/SO THESE ENTRIES WILL BE AVAILABLE TOO. 

A METHOD OF CHECKING IF THERE IS ENOUGH SPACE IS THE 'DRYRUN'. THE DIRECTORY UPDATE 
IS SIMULATED IN THE DRYRUN (A SWITCH PREVENTS FROM REAL UPDATING). 
THERE IS NO MODIFICATION OF THE DIRECTORY DURING THE DRYRUN. 

IF THE DIRECTORY BECOMES FULL IN THE DRYRUN ('DIRECTORY TOO SMALL') THE JOB Wl LL BE 
CANCELLED, OTHERWISE THE RUN STEP PERFORMED. 



RUN 



UPDATE THE CORE IMAGE DIRECTORY WITH THE INFORMATION FROM THE STOW TABLE 

0. QUEUE FETCH REQUESTS, BECAUSE DIRECTORY WILL BE MODIFIED. NO FETCH IS THEREFORE 
ALLOWED. 

1. READ DIRECTORY RECORD CONTAINING ENTRY WITH NAME OF FIRST 'TABIN' ENTRY ('LOOKUP'). 

2. WRITE INAREA UNTIL 'DIRPTR' TO OUTPUT AREA ('PUTENTRY', 'GETENTRY'). 

3. 'INPTR' POINTS TO THE FIRST APPLICABLE INPUT ENTRY. 'OUTPTR' POINTS TO THE AREA WHERE 
TO MOVE THE FIRST APPLICABLE ENTRY. 

4. CHECK FOR EQUALITY BETWEEN CURRENT STOWTABLE ENTRY AN DIRECTORY INPUT ('CHKEQL') 

5. IF MERGE NOT COMPLETED CONTINUE WITH NEXT TABIN' ENTRY UNTIL ALL ENTRIES PROCES- 
SED ('PROCESS'). 
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Chart 64. $fiAINDIF (Part 7 of 12) 



CHKEQL 



CHECK EQUALITY BETWEEN CURRENT STOWTABLE ENTRY AND DIRECTORY INPUT, SYSTEM DIREC- 
TORY LIST, AND RAS LOADLIST. 



PROCESS 



SELECT 'CATALOG', 'UPDAT', OR 'DELET' FOR EXECUTION 



CATALOG 



ADD 1 STOWTABLE ENTRY TO DIRECTORY OUTPUT 



UPDAT 



HANDLE A NORMAL CONDENSE REQUEST 

HANDLES A NORMAL CONDENSE REQUEST. 'SWEQUAL' SHOULD ALWAYS BE 'YES', BECAUSE EACH 
ENTRY TO BE UPDATED EXISTS IN THE DIRECTORY (AT LEAST BEFORE THE CONDENSE, CONDENSE 
ONLY CHANGESTHE ADDRESS IN DIRECTORY ENTRY). 

1. IF PHASENAME NOT IN DIRECTORY GENERATE A DUMP, SYSTEM ERROR DURING CONDENSE. 

2. REPLACE DIRECTORY ENTRY BY NEW ONE FROM STOWTABLE. 



FINISH 



CLEANUP BEFORE RETURN 

1. DEQUEUE FETCH REQUESTS. 

2. GENERATE MESSAGES FOR ERROR SITUATIONS DETECTED DURING EXECUTION OF 'MAINT' 
CGENMSG'). 

3. SCAN THE SYSTEM DIRECTORY LIST TO LOAD PHASES INTO THE SVA ('SCANSDL'). 

4. GENERATE MESSAGES FOR ERROR SITUATIONS DETECTED DURING SDL UPDATE OR SVA BUILD 
CSVAMSG'). 

5. RESTORE STORAGE KEY TO ORIGINAL VALUE. 



GENMSG 



GENERATE MESSAGES 

GENERATE MESSAGES FOR ERROR SITUATIONS DETECTED DURING EXECUTION OF 'MAINT'. 

INPUT: MSGCOUNT .... TOTAL NUMBER OF MESSAGES. 

TABIN.. MESSAGE BITS. 

OUTPUT: MESSAGES ON SYSLOG OR SYSLST. 

FUNCTION: SCAN TABIN AND GENERATE MESSAGES BY 'MSG'. 
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Chart 65* $MAINDIF (Part 8 of 12) 



SVAMSG 






GENERATE SDL AND SVA MESSAGES 




GENERATE MESSAGES FOR ERROR SITUATIONS DETECTED DURING SDL UPDATE OR SVA BUILD. 


INPUT: 


SDL ENTRIES. 
SWSVAFUL. 




OUTPUT: 


MESSAGES ON SYSLOG OR SYSLST. 




FUNCTION: 


SCAN SDL AND GENERATE MESSAGES BY 


'MSG\ 



SCANSDL 



SCAN THE SYSTEM DIRECTORY LIST TO LOAD PHASES INTO THE SVA 

1. SCAN SYSTEM DIRECTORY LIST AND 

2. LOAD PHASES IN THE SHARED VIRTUAL AREA (SVA) BY 'LOAD'. 



LOAD 



LOAD 1 PHASE INTO SHARED VIRTUAL AREA (SVA) 



INTERNAL SUBROUTINES 



SCLVLDR 



BUILD SECOND LEVEL DIRECTORY (SLD, ALWAYS PRESENT FOR FBA CORE IMAGE LIBRARIES) FOR 
PRIVATE CORE IMAGE LIBRARY 

REFORMATTING OF ALL SLD'S WHEN SCOPE OF SLD HAS BEEN EXCEEDED. 

THE NUMBER OF ENTRIES IN SLD (SLDNE) IS ALREADY INITIATED DURING SUPERVISOR GENERATION. 

1. COMPUTE NUMBER OF FBA-BLOCKS WITHIN ONE GROUP. 

2. READ THE LAST RECORD WITHIN GROUP, GET LAST ENTRY (VIA U-BYTES) AND STORE ITS NAME 
IN THE SLD. 



108 DOS/VS Librarian 



Chart 66. SKLAINDIF (Part 9 of 12) 



EXTR 



BUI LD ARRAY 'TABIN', CONTAINING PHASENAMES, STOWTYPES AND POINTERS TO STOW TABLE 
ENTRIES. 

INPUT: STOW TABLE 

LAYOUT OF TABIN: 

ENTRIES CONSISTING OF 

B BYTES PHASENAME 

1 BYTE STOWTYPE 

3 BYTES POINTER TO ORIGINAL ENTRY IN STOWTABLE 

ENTRIES WILL BE SORTED ON PHASENAME. AT THE END AN END ENTRY (F..F) IS ADDED. 

LOCATION OF TABIN: 

THE AREA POINTED TO BY IOREG, AS INITIALIZED BY THE GETMAIN PROGRAMMER 
MACRO EXPANSION. 

SPECIAL CASE: 

IN ARRAY TABIN' TWO ENTRIES ARE CREATED FOR A 'RENAME' TYPE 'STOWTAB' 
ENTRY. 

1. 'RENAME' WITH THE OLD NAME 

2. 'SPECIAL' WITH THE NEW NAME 

BOTH POINTING TO THE SAME 'STOWTAB' ENTRY. 

NOTES ABOUT 'RENAME' AND 'SPECIAL' PROCESSING: 

BEFORE THESE 2 ENTRIES ARE CREATED 2 CHECKS ARE MADE: 

1. OLD NAME MUST BE IN THE DIRECTORY, OTHERWISE A DIAGNOSTIC MESSAGE WILL 
BE GIVEN: PHASE 'OLDNAME' NOT IN LIBRARY, AND THE RENAME REQUEST IS NOT 
PROCESSED. 

2. NEW NAME MUST NOT BE IN THE DIRECTORY, OTHERWISE A DIAGNOSTIC MESSAGE 
WILL BE GIVEN: PHASE 'NEWNAME' ALREADY IN LIBRARY, AND THE RENAME 
REQUEST Wl LL NOT BE PROCESSED. 

THE INFO FROM THE 'OLDNAME' DIRECTORY ENTRY IS SAVED IN THE STOW TABLE 
ENTRY. 

1. INITIALIZE VALUES FOR TABIN'. 

2. EXTRACT FROM STOW TABLE INFORMATION FOR TABIN'. 
FOR A RENAME ENTRY INCLUDE 'RENM'. 

3. INSERT END ENTRY OF TABIN'. 

4. IF TABIN' IS NOT SORTED' INCLUDE 'SORT'. 



DELET 



SKIP INPUT DIRECTORY ENTRY AND UPDATE LIBRARY DESCRIPTOR ACCORDINGLY. 
ISSUE DIAGNOSTIC MESSAGE IF THE APPLICABLE ENTRY IS NOT PRESENT IN INPUT. 

NOTE 1: 

FOR A DELETE 'PROG.ALL' REQUEST MORE THAN ONE ENTRY MAY BE SKIPPED' 

NOTE 2: 

IF AN ENTRY IN THE SYSTEM DIRECTORY LIST EXISTS FOR THIS PHASE IT IS CLEARED TO BINARY 
ZEROES. ONLY THE NAME REMAINS THERE, THE NOT FOUND BIT IS TURNED ON, AND THE STOWTYPE 
IS SAVED. 

NOTE 3: 

IF A RAS TRANSIENT IS DELETED (PHASENAMES IN RANGE $$RAST00 - $$RAST99), THE DISK ADDRESS 

IN THE RAS LOADLIST IN THE SUPERVISOR IS MADE INVALID. 



MSG 



DISPLAY 'MSGAREA' ON SYSLST IF ASSIGNED, OTHERWISE ON SYSLOG. 
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Chart 67. $fl&INDIF (Part 10 of 12) 



LOOKUP 



SCAN DIRECTORY TO FIND 'LOOKNAME' 

INPUT: VALUE IN 'LOOKNAME'. 

LIBRARY DESCRIPTOR RECORD IN 'DESCRPT'. 
LIBRARY DIRECTORY BLOCKS ON DISK. 
SECOND LEVEL DIRECTORY. 

FUNCTION: CHECK IF THE PHASENAME EXISTS IN THE CORE IMAGE LIBRARY AND SET 'FOUND' TO 
YES OR NO ACCORDINGLY. 

OUTPUT: - FOUND SWITCH 

-DIRECTORY RECORD IN INPUT BUFFER. 

- 'INPTR' IS POINTING TO FOUND ENTRY OR TO ENTRY WITH A NAME HIGHER OR = 
TO'FF.FF' IF NOT FOUND. 

- 'INBEG' CONTAINS BLOCKNUMBER OF FIRST RECORD READ IN BUFFER. 



GETENTRY 



PROVIDES A DIRECTORY ENTRY FOR A MERGE OPERATION DURING 'MAINT' 

INITIALIZATION: 

FILL ALL INPUT BUFFERS AND SET 'INPTR'TO BEGIN OF BUFFER AREA AFTER U-BYTES (IN 'RUN'). 

IN 'INBEG' IS BLOCKNUMBER OF RECORD FIRST READ IN (BY 'LOOKUP'). 

INPUT: 

INPTR: POINTING TO ENTRY IN BUFFER TO BE PROCESSED. 

INAREA: BUFFER. 

INBEG: BLOCKNUMBER OF RECORD FIRST READ IN. DIRECTORY ON DISK. 

FUNCTION: 

1. BUMP 'INPTR' TO NEXT INPUT DIRECTORY ENTRY. 

2. IF END OF RECORD REACHED' BUMP TO FIRST ENTRY IN NEXT RECORD. 

3. IF END OF INPUT BUFFER REACHED REFILL INPUT BUFFER AND SET 'INPTR'TO BEGIN OF THE 
INPUT BUFFER AREA. 

OUTPUT: 

INPTR: BUMPED TO NEXT ENTRY, IF END OF BUFFER REACHED SET TO BEGIN OF BUFFER 

JUST FILLED WITH NEW RECORDS. 
INRECPTR: POINTS TO BEGIN OF RECORD IN BUFFER. 
INAREA: UNCHANGED OR FILLED WITH NEW RECORDS. 
INBEG: UNCHANGED OR INCREASED BY LENGTH OF BUFFER. 
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Chart 68. $MINDIF (Part 11 of 12) 



PUTENTRY 



WRITES A DIRECTORY ENTRY TO THE OUTPUT BUFFER AND WRITES THE OUTPUT BUFFER ONTO 
DISK WHEN IT IS FULL, OR WHEN THEY ARE COMPLETE 

DURING DRYRUN NOTHING WILL BE MODIFIED. 

INITIALIZATION: 

ORECPTR = OPTR 

OUTPTR = OPTR + DESLUBYT 

OUTBEG = INBEG 

INPUT: 

INPTR: POINTS TO ENTRY TO BE TRANSFERRED TO OUT BUFFER (OUTFUNC = INA). 

TABACT: ACTUAL INDEX OF TABIN' (OUTFUNC = TAB). 
OUTFUNC: FUNCTION CODE. 

FUNCTION: 

1. STORE THE DIRECTORY ENTRY BASED BY INPTR OR TABACT THE OUTAREA BEGINNING AT 
'OUTPTR'. 

2. WHEN THE LAST OUTPUT BUFFER IS FILLED WRITE ALL OUTPUT BUFFERS ONTO DISK AND SET 
'OUTPTR' TO BEGIN OF FIRST OUTPUT BUFFER. 

3. UPDATE THE LIBRARY DESCRIPTOR RECORD. 

4. TEST FOR FULL DIRECTORY. 



RDLIBDES 



READ LIBRARY DESCRIPTOR 

INPUT: ADDRESS OF LIBRARY. 

LIBRARY DESCRIPTOR RECORD ON DISK. 

OUTPUT: DESCRIPTOR RECORD IN 'DESCRPT'. 
MESSAGE FOR ERROR CASE. 



WRLIBDES 




WRITE LIBRARY DESCRIPTOR ONTO DISK 


INPUT: 


LIBRARY DESCRIPTOR RECORD IN CORE. 


OUTPUT: 


LIBRARY DESCRIPTOR ON DISK. 



RDDIRREC 



READ A UNIT OF DIRECTORY RECORDS INTO THE BUFFER AREA 

INPUT: 

RDBUFADR: ADDRESS OF BUFFER AREA USED. 

RDBUFLEN: LENGTH OF BUFFER AREA IN RECORDS, NUMBER OF RECORDS READ IN. 

RDBLKNR: RELATIVE BLOCKNUMBER OF FIRST RECORD TO BE READ IN. 

OUTPUT: UNIT OF DIRECTORY RECORDS IN BUFFER AREA. 
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Chart 69. $MAINDIF (Part 12 of 12) 



WRDIRREC 



WRITE A UNIT OF DIRECTORY RECORDS FROM THE BUFFER AREA ONTO DISK 

INPUT: 

WRBUFADR: ADDRESS OF BUFFER AREA USED. 

WRBUFLEN: LENGTH OF BUFFER AREA IN RECORDS, NUMBER OF RECORDS WRITTEN OUT. 

WRBLKNR: RELATIVE BLOCKNUMBER WHERE FIRST RECORD HAS TO BE WRITTEN OUT. 

OUTPUT: UNIT OF DIRECTORY RECORDS ON DISK AND RETURN CODE. 



RASCONV 



CONVERT THE 2-BYTE FIELD 'RASNR' FROM CHARACTER FORMAT TO BINARY FORMAT AND ADD 
1 TO MAKE IT USABLE AS INDEX INTO THE RAS LOADLIST IN THE SUPERVISOR. 



INTERROR 



FOR SYSTEM ERRORS GENERATE A DUMP 
INPUT: VALUE TO BE STORED IN REG. 15. 
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Chart 70. DSERV 
Overview: 



f DSERV J 



DSERV. Root 



Initialize 
the program 



DSERVC 71 



CKD device 
handling 



DSERVF 71 



FB A device 
handling 



DSERV1 



72 



Build the status table, one entry 
for each system and assigned private 
library. 

Call phase $LIBSTAT ■ 



$LIBSTAT 47 



Edit the contents of 
the status table. 
Print the status report. 



Read and analyze the current control state- 
ment which may contain one or more or all 
of the operands below. (These operands 
may be specified in one or in several con- 
trol statements, and they may be specified 
in any sequence.) Continuation statements 
are not allowed.) /* or /& in character posi- 
tions 1 and 2 of a control statement indi- 
cate an end-of-file condition 




DSERV2/F 74 



Prints CI L 
directories 
and transient 
directory 



DSERV3 75 



Sorts RL, SL, 
PL directories 
for CKD 



DSERV4 75 



Prints RL, 
SL directories 
for CKD 



DSERV5 75 



Prints PL 
directory 
for CKD 



DSERV3F 76 



Sorts and 
prints RL, SL, 
PL directories 
for FBA 



SDL 



DSERV6 76 



Prints the SDL 
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Chart 71. DSERVC/DSERVF 



f DSERVC J 



This phase (one of the twin phases) contains device specific sub- 
routines called by the overlay phases. 

At label D1CRES 

Note device information (TR/CYL, device type (RPS)) of SYSRES 

from fetch table 

- read system directory record 

— prepare status table for system libraries 

— set switches for existing system libraries 

At label D1CPR LB for private relo library 
D1CSRLB for system relo library 
D1CPSLB for private source library 
D1CSSLB for system source library 
D1CPLB for system procedure library 

- prepare CCB and CCW's 

- read descriptor record of the requested library 

— check for active entries in the requested library 

At label READDIR 

— read routine for system directory records and for library descrip- 
tor record (with consideration of RPS) 

- definition of CCB, CCW-chain and IOAREA 



f Return ) 

f DSERVF J 



This phase (one of the twin phases) contains device specific sub- 
routines called by the overlay phases 

At label D1F RES 

— note system CI L start address 

— read system directory record 

— prepare status table for system libraries 

— set switches for existing system libraries 

At label D1F PR LB for private relo library 
D1 FSRLB for system relo library 
D1RPSLB for private source library 
D1 FSSLB for system source library 
D1 FPLB for system procedure library 

— prepare IOR Band CCW's 

— read descriptor record of the requested library 

— check for active entries in the requested library 

At label READDIRF 

— read routine for system directory record and for library descrip- 
tor record 

— definition of I ORB, CCW-chain, FIXLIST, DEF LOG, DEF EXT 
and IOAREA 



f Return J 
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Chart 72. DSERV1 (Part 1 of 2) 
Detail Chart RA. 



( DSERV1 J 



This phase DSER V1 contains the following functions: 

If first time through do some initialization, otherwise skip to label 
'GETPASS'. 



Call twin phase dependent on SYSRES device type for read system 
directory record and prepare status table for system libraries. 



Atlabel'CHKCIL' 

If private CI L is assigned get PCI L start address and prepare status 

table entry. 

Otherwise system CI L start address is used. 

Set up indications for PCI L assigned, TR/CYL, device type. 



At label CHKRLB for relo library 

CHKSLB for source library and procedure library 

If private library is assigned OPENR private library to get library 

start address and prepare status table entry. 

Call twin phase to prepare CCB and CCW's. 

Read descriptor record. 

Check for active entries. 

Save library start address. 

Otherwise if system library is present call twin phase to prepare 

CCB and CCW's. 

Read descriptor record. 

Check for active entries. 

Save library start address. 

If system library is not present setup indicator for message printing. 



GETPASS 



LOADSTAT 
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Chart 73. DSERV1 (Part 2 of 2) 
Detail Chart RA. 



CHKRLB 
CHKSLB 



Source statement 




V 



At label 'LOADSTAT' 

— Put together all valid entries in the status table. 

- Load $LIBSTAT into partition (if pot present in SVA). 

— Define workarea behind phase last loaded. 

- Bal to $LIBSTAT to print the status report of all the system 
libraries and assigned private libraries. 



At label'GETPASS' 

— Increment pass and page counter. 

— If PCI L or private transient directory is empty print message. 

— If phase not found condition is recognized print message. 

— If additional directory has to be printed go to label TESTANY' 
otherwise reset SWA, SWA1, SWD and go to read next control 
statement. 

The label 'GET PASS' is branched to in case of not first time 
through. 



At label :READCARD' 

— Get control statement from SYSIPT. 

— Scan control statement for valid operation. 

If EOF found go to label 'CLEANUP' in root phase for EOJ. 
If invalid operation found print control statement in error and 
print error message at label 'INVALID'. 

— Scan control statement for valid operands. 

If invalid operand found, print control statement in error and 
print error message. 

— Setup SWA and SWA 1 to note down the function(s) specified 
in the control statement. 

— Setup the appropriate indicators of SWB and SWB1 (if assigned 
private library is empty print error message). 

— If CD operand with a specific phase name is found, save the 
phase name into field 'PNBUCKET' and save the displacement 
of VER/MOD in field 'VMDISP'. 



At label 'LOADF2' 

- Initialize FETCH of next overlay phase by testing SWB and 
SWB1 and branch to FETCH routine in root phase. 
(The order of libraries to be printed is given by the order of 
testing SWB and SWB 1.) 



f Return j 
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Chart 74. DSERV2/DSERV2F 

Detail Charts RB-RC. 



f DSERV2 J 



— Read directory entries from system or private CIL libraries on 
CKD devices and convert them to printable characters. 

— Print TD or CD entry in single columns and in alphameric order 
(CD/RD directory is always sorted) whenever DSf*LY or 
DSPLYS is specified. 

— Print the entries of the system directory list if the member is 
not in the directory. 

— If a phase or a group of phases is specified by phase name in the 
CD operand, the program locates the specific phase or group 

of phases in the CI L and prints the directory records with 
version and module level picked up from the member. 

— If a specified phase is also present in the SVA, this information 
will be printed too. 

INPUT 

— The core image directory disk address. 

— Version/module level displacement if version and module level 
printing is requested. 

OUTPUT 

— A completely formatted directory display with 48 lines per page. 



I Return j 



( DSERV2F J 



— Read directory entries from system or private CI L libraries On 
FBA devices and convert them to printable characters. 

— Print TD or CD entry in single columns and in alphameric order 
(CD/TD directory is always sorted) whenever DSPLY or 
DSPLYS is specified. 

— Print the entries of the system directory list if the member is 
not in the directory. 

— If a phase or a group of phases is specified by phase name in the 
CD operand, the program locates the specific phase or group of 
phases in the CI L and prints the directory records with version 
and module level picked up from the member. 

— If a specified phase is also present in the SVA, this information 
will be printed too. 

INPUT 

— The core image directory disk address. 

— Version /module level displacement if version and module level 
printing is requested. 

OUTPUT 

— A completely formatted directory display with 48 lines per page. 



f Return J 



Program Organization 117 



Chart 75. DSEEV3/DSERV VDSERV5 

Detail Charts RJ> and RF. 



f DSERV3 \ ► 



— Read relocatable directory or source statement directory or procedure direc- 
tory entries into the sort area (sort area = remaining storage space after program 
end until partition end). 

If storage space is not sufficient repeat read in, sorting and printing in several 
passes. 

— If sorted display is desired (DSPLYS specified) sort the entries in the sort area. 

— Cause fetch of DSER V4 for printing relocatable and source statement direc- 
tory entries or DSER V5 for printing procedure directory entries and return to 
the fetch routine in the root phase. 

INPUT 

— The relocatable, source statement and procedure directory disk address. 

— Starting address of the sort area. 

— I ndicator for directory that has to be processed. 

OUTPUT 

— The sorted or unsorted relocatable, source statement, or procedure directories 
in core and 

— the number of entries which have to be printed. 



mJ Return J 



( DSERV4 J »» 



- Check display indicator and branch to the appropriate processing routine to 
print the SSL or RL directory from sort area. 

— Format relocatable directory records in the sort area to look like source state- 
ment directory records for common routine. 

- Convert the number specified in HEX to a printable character. 

- After ah records are printed, check the full table indicator and if off, turn off 
the appropriate directory indicator and return control to the root phase to 
load DSERV1, otherwise just exit to the root phase to load DSERV1. 

INPUT 

- Sorted or unsorted RD or SD entries in the sort area. 

- Starting address of sort area. 

— Number of entries that have to be printed. 

— Indication in 'SWB' and SWB1' which directory has to be printed 

— Initialized page and pass counters. 

OUTPUT 

A completely formatted directory display including: 

— Directory title, pass number, page number and date. 

— Column heading indicate the information of directory entries. 

- Directory entries with 48 lines per page. 



h*4 Return J 



( DSERV5 J »- 



- Check display indicator and branch to the appropriate processing routine to 
print the PL directory from sort area. 

- Convert the number specif ied in HEX to a printable character. 

- After all records are printed, check the full table indicator and if off, turn off 
the appropriate directory indicator and return control to the root phase to 
load DSER V1, otherwise just exit to the root phase to load DSERV1. 

INPUT 

- Sorted or unsorted PD entries in the sort area. 

- Starting address of sort area. 

- Number of entries that have to be printed. 

- Indication in 'SWB' and 'SWB1' which directory has to be printed. 

- Initialized page and pass counters. 

OUTPUT 

A completely formatted directory display including: 

- Directory title, pass number, page number and date. 

- Column heading indicate the information of directory entries. 

- Directory entries with 48 lines per page. 



^4 Return j 
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Chart 76. DSERV3F/DSERV6 

Detail Charts RE and 



RG. 



( DSERV3F J 



- Read relocatable directory or source statement directory or procedure direc- 
tory entries into the sort area (sort area = remaining storage space after pro- 
gram end until partition end). 

If storage space is not sufficient repeat read in, sorting and printing in several 
passes. 

- If SORTED display is desired (DSPLYS specified) sort the entries in the sort ! 
area. 

- Check display indicator and branch to the appropriate processing routine to 
print the directory from sort area. 

INPUT 

- The relocatable, source statemen^and procedure directory disk address. 

- Starting address of the sort area. 

- Indicator for directory that has to be processed. 

OUTPUT 

A completely formatted directory display including: 

- Directory title, pass number, page number and date. 

- Column heading indicate the information of directory entries. 

- Directory entries with 48 lines per page. 



( Return J 



( DSERV6 J 



— Read system directory list entries and convert them to printable characters. 

— Print SDL entries in single columns and in alphameric order whenever DSPLY 
or DSPLYS is specified. 

INPUT 

— The system directory list. 
OUTPUT 

A completely formatted directory display including: 

— Directory title, page number and date. 

— Column headings indicating the entry information. 

— Directory entries with 48 lines per page. 



( Return J 



Registers Usage for DSERV6: 

RO - Work register for EX instruction. 

R1 - Address of CCB for EXCP. 

R 2, R3, R 4, R 10 - Work registers. 



R5 

R6 

R7 

R8 

R9 

R11 

R12 

R13 

R14 

R15 



Entry length and displacement to VM. 

Pointer to SDL entry. 

Pointer to print area. 

Base register for DSERV6. 

Link register to print routine (in root phase). 

Pointer to system directory list entry in SVA. 

Root phase base register t . : 

Save area address (reserved for ...). 

Put register for L IOCS. 

LIOCS base register. 
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Chart 77. CSERV 



f CSERV J 



3TART 



ROOTPHASE 



Initialization. 

All files are opened. 




YES 



Fetch 
CSERVF 



Fetch 
CSERVC 



RDCARD 



Control statements are read from 
SYSIPT. The operation field is analyzed 
for PUNCH, DSPLY, DSPCH 





NEXTLN 
andSEQREAD 



and MSG3 



CMPRBL 



Check for more additional 
operands 




YES 



EXECUTE(F) 



WRITE 



PRTHDR/PCHHDR 



Print title line and/or 

punch PHASE-card and ESD-cards 



SERVICE(F) 
SERVICE(F) 




78 



TRANSLT/PCHRTNI 



Print and/or punch text-lines 
from current text-block 



(7) 

NEXTLN 



EXECUTE(F) 
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Chart 78. CSERVC/CSERVF 



TRANTST 



f CSE 


^ CSERVF J 


RVC J 


IADDR(F) ' 


' 


Initialize entry -points for root phase. 
Read library descriptor record 




AFTERBUF 



Print error- 
message 
3M43I 



EXECUTE(F) 



Read the right directory block (record) 
containing the phase to be handled. 




MSG3 



NO 



Print error- 
message 
3M33I 



WRITE 



SVC6 'CANCEL 



) 



CMPRBL 



? 9 



SEQREAD 



Read the directory sequentially 




YES 



CMPRBL 



WRITE 



SERVICE(F) 




Read one textblock of the phase into 
storage, increase addr. for next read, 
determine what kind of output is 
requested 



k) 



TRANSLT/PCHRTN 
NEXTLN 




CMPRBL 
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Chart 79. RSERV (Part 1 of 2) 



f RSERV J 



START 



ROOT PHASE 



Initialization. All files are opened 




YES 



Fetch 
RSERVF 



Fetch 
RSERVC 



RDCD 



GETCTL 



Control statements are read f rom 
SYSIPT. The operation field is analyzed 
for PUNCH, DSPLY/DSPCH 



ERILOP 



EXTRCT 



O 




YES 



Print error- 
message 
3M10I 



ENDRTN 



YES 



PUNCH /* card 
if punch was re- 
quested, Close 
SYSPCH 



ILOPRD 



)perand= 
'ALL, .ALLorN.. NO 
^valid length mo^ 
dule-name 



YES 



Print error- 
message 
3M21I 




G> 



81 
RDRD1C(F) 



EOM-80 
UPDTC/RDSEQU-81 



IGNORE 



2 



RLBAS(F) 



RDRD1QF) 



nrj nrj 



NOLIB 1f 



SOME 



Print error- 
message 
3M43I 



I 



NOTHR1 



Print error- 
message 
3M33I 



( SVC6 'CANCELM A 2 J 



-f SVC 14 'EOJ' J 



YES 



CPLSOP1 



Check fore more additional operands. 
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Chart 80. RSERV (Part 2 of 2) 



PRTHDR 




Print title line and/or punch CATALR-card 











^^ rU 

YES 


ich ^^ 






ESDPCH 


ESD 


PUNCH ESD REC, EXTERNAL SYMBOL 
DICTIONARY 


Conversion of ESD records from the RL to pun- 
ched cards 








TXTPCH 


TXT 


PUNCH TXT REC, TEXT 
STATEMENTS 


Conversion of TXT records from the R L to pun- 
ched cards 








RLDPCH 


RLD 


PUNCH RLD REC, RELOCATION 
DICTIONARY 


Conversion of R LD records from the R L to pun- 
ched cards 







YES <^ Print > N0 




ESD 


ESDPRT 




PRINT ESD RCD, EXTERNAL SYMBOL 
DICTIONARY 


Refer to Figure 24 for the format of ESD 
records 


TXT, 
SYM 


1 


TXTPRT/SYMPRT 


PRINT TXT RCD, TEXT STATEMENTS AND 
SYM RCD, SYMBOLIC STATEMENTS 


Refer to Figure 25 for the format of TXT records 
in the relocatable format. Symbolic statements 
(autotest output) are printed in the same manne 
as TXT statements. 


RLD 




RLDPRT 


PRINT RLD RCD, RELOCATION 
DICTIONARY 


Refer to Figure 26 for the format of RLD 
records in the relocatable format. 


REP 




=IEPPRT 


PRINT REP RCD, REPLACE 
STATEMENT 


Replace statements are printed in card 
image. 


( 
END 




:nvorg 


PRINT END RCD, END 
STATEMENT 


End statement is printed in card image. The 
end statement is the last card in a module 
and must be present. 











RDLIBC(F) 
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Chart 81. RSEHVC/RSERVP 





C 


RSERVF 


) 


c 

RLBAS(F) 


RSERVC 

I 


.) 




Initialize entry points for rootphase. 
Read library descriptor record 




NOLIB 



RDCD 



EXTRCT 



RDRD1C(F) 



Read a directory record / 
block into the buffer 




YES 



PRTHDR 



YES 




79 
SOME 




PRTHDR 



RDLIBC(F) 




Read a record/block of the module into 
the storage. Increase addr. for next read 
In case of FBA library make a 
322 byte record available for print/ 
punch. 
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Chart 82. SSERV (Part 1 of 2) 



( SSERV ) 



FBAINIT 



START 



Initialization 

Open SYSIN and SYSLST 



NBLENT 




Get another operand 
(scan for more operands). 



CALLCS 




YES 



Do FBA initi- 
alization 



RDRDR 



Read control card 



YES 




SLASHO 



Punch /* Card 
if punch was 
requested 



— ( SVCU'EOJ' J 



CSERRO 



YES 



PRTCCD 



Print error- 
message 
3M09I 



Print control card 



Analyze operation code to deter- 
mine type of output required. 
Open SYSPCH if punch desired 




CSERR1 



YES 



CPRSC1 



Print error- 
message 
3M10I 



If the last operand is CMPRSD, the 
switch CPRSW is turned off for 
compressed punch-output. 



See Figure 27 for compressed 
output 



BLNENT 



Point to first operand to 
be served. 




CSERR2 



YES 



Print error- 
message 
3M21I 



NO 





End of 
Statement 



YES 
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Chart 83. SSERV (Part 2 of 2) 



NBLENT/BLNENT 
82 




GETALL 



BKNDOU 



Print title line and/or 
punch CATALS-Card 





READBLK 



(via DTFSL) 



Read a block from the (P) SSL 




YES 



CPRPCH 



Punch output will be compressed 



EXPTIN 



EXPOUT 



Print/punch that block 




YES 



FNDBK 



(via DTFSL) 



Locate the next book in SSL 



NOFND, 




YES 



-rrj 

NBLENT 



End of ^S 

source-lib 


s. YES 


• Ul 


NO 


' . 




NBLENT 


Book ^ 






fou 


nd 
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Chart 84. PSERV (Part 1 of 2) 



f PSERV J 



START 



Initialization 

Open SYSIN and SYSLST. 
Exclusive uses of procedure library 
by SVC63 




YES 



CALLCS 



RDRDR 



Read control card 



/* 
card 



NO 





NAVERR 


NO 


Print error 

message 

3M00I 






1 


r 



( SVC14'EOJ' J 






FBAINIT 


YES 


Do FBA initia- 
lization 






YES 



SLASHO 



Punch /* card if 
punch was reque- 
sted, release 
Proc-lib.(SVC64) 



I SVCU'EOJ' J 




CSERRO 



Print error 

message 

3M09I 



9 



PRTMSG 



Print control card 



Analyze operation code to de- 
termine type of output required 
(printer, punch, or both). 
Open SYSPCH if punch desired 




FNDBK 
READMEMB 
NFERR 
CSERR3 



YES 



GETBK1 



CSERR1 



Print error- 
message 
3M10I 



OPSCAN 



Point to next operand on 
Control statement 






CSERR2 


N0 


Print error 

message 

3M20I 





YES 
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Chart 85. PSERV (Part 2 of 2) 
GETBK1 
84 




YES 






CSERR3 


NO 


Print error 

message 

3M21I 





FNDBK 



(via DTFPL) 



Locate the first procedure in the library 



FNDBK 



Locate the procedure via DTFPL 




YES 




NO u 



YES 



EXPCD1 



ALOERR 



Print error 
message 3M43I 



-»J SVC6 'CANCEL' \ 






NFERR 


YES 


Print error 

message 

3M33I 





GETBK1 



BKNDOU 



Print title line and/or punch 
CATALP-card 



READMEMB 



Read a block (via DTFPL). Print/ 
punch that block 




YES 



FNDBK 



Locate the next procedure in library 




(via DTFPL) 



YES 




GETBK1 



GETBK1 
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Chart 86. $$BSYSWR 



(SVC 2 \ 

$$BSYSWR- 1 
transient J 




MOVE LABEL AREA INFORMATION ■• 



Function A 



If function B it to be executed - 
TESTTYPE 




YES 



DOCKDDEV 

Read system directory record 1 

Set up the label area address and length 

(CCHH/HH) in work field 

Read system directory record 4 

Set up the procedure library address in 

work field (CCHH) 

Move this information from workf ield 

to label area control block in SVA. 



DOFBADEV 

Read system directory record on block '2' of device 

Read procedure library descriptor record to. get 

end address of procedure library. 

Move label area address and length (in units 

of blocks) and procedure start address to 

label area control block in SVA. 



-o 



-0 



(SVC 11 "N 
Return J 




ALLOW WRITE ON SYSRES = Function B 



SYSWR 

Set flag bit in COM REG to allow 

write on SYSRES. 



(SVC 11 *\ 
Return ) 
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Chart 87. 



$$BOPNLB 



(SVC2 N 
$$BOPNLB- ) 
transient J 



Q 







'OPEN' SYSTEM LIBRARIES 



SYSTLIB 




FBA 



If procedure library, set up to read system 
directory record 4, else set up to read 
system directory record 3 for source libr. 
If there is no such library indicate so 
in control block; else set up disk 
address for library and read descriptor. 
Set up disk address in control block and 
test if active members on library, indicate 
so if not. 



SYSTLIB1 

Read system directory record (block 2 on device) 

If call was for procedure library 'OPEN' 

test if there is such library and indicate 

so if not. If call was for source library, 

test if there is a library and if not indicate 

so. Set up the address of the library to 

'OPEN' and read descriptor of library. 

Set up disk address of library and 

determine if there are any active members 

in library; if not indicate so in control block. 



-o 



'OPEN' PRIVATE LIBRARY 



The following logic does not apply to 
procedure libraries 

PRIVLIB 

If no private library opened, exit from transient - 



PRIVLIB01 




YES 



Read descriptor of library. 

If there are no active entries indicate 

so in control block and exit from transient- 



PRIVLIB1 

Read descriptor of library 

If there are no active entries indicate 

so in control block and exit from transient. 



SVC 11 



3 



<D 



4 svc 11 j 



-«■"/ SVC 11 J 
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:hart 88. DTFSL ttacro (Part 1 of 3) 



* Macros 
FNDSL 
GETSL 
NTSL 
PTSL 

2 



Note: 

This code is not generated 
for &LBR = YES. In that case 
code as for DOS/VSE 
mode entered directly. 



f DTFSL-Macro J 



CHECK SUPPORT LEVEL 



DTFSLCHK 

Set mode of operation for all 

succeeding requests. 




YES 



-T7J 

DTFSLFND 



FNDSL (GETSL, PTSL, NTSL Chart 2) 



G> 



PRIOR TO DOS/VSE MODE REQUEST 
PROCESSING 



FNDLPR 



FNDL 




DIRSCAN 

Read a directory block (subroutine PDBLK) 
Scan directory block to find match in 
FNDSL passed bookname and directory. 
If no match found in block read next block 
until end of directory. 




Action as under label DIRSCAN 



FNDBK * 

Set up disk address of book and indicate 

library found in. 

Set up for first GETSL request. 



GOPEN ▼■' 

If private library expansion and 

private library assigned OPEN private 

library by calling $$BOPEN. 

Set up disk addr. of private library 

and have $$BOPNLB determine if 

private has any members. 

For system library have location 

and member status returned by 

$$BOPNLB 



(FNDSL ~~ "\ 
exit 'Not found' J 



(FNDSL \ 
Exit: 'Book found/ 
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Chart 89. DTFSL Macro (Part 2 of 3* 
GOPEN 




PRIOR TO DOS/V SE MODE REQUEST PROCESSING 



GFTL 




YES 



Read a member block (subroutine RDBLK) 
Decompress it (insert blanks) into card 
images in user area. 



YES 




NOT EL 

Pack current disk address, displacement 
in block, and private /system indicator 
into note word in register 



PTL1 

Restore information from note word in register. 

Read block last processed (address provided by 

note word) 

Set up afters record last provided by GETSL 



YES 




RDBLK 

Build channel program for directory or 

member block read ( RPS/non RPS device 

and supervisor) 

Read block into IOAREA. 



YES 




(GETSL *\ 

end of book J 



(Return to A 

&ERROPIabel/ 

-^f GETSL ^ 

V normal return 7 



-»■/ NOTEL J 



(Return to A 

&ERRORlabel > / 

CPTSL *\ 

normal return J 



(Return to A 

&ERRORIabeiy 

-^C ptsl , ^ 

V normal return J 
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Chart 90. DTFSL Macro (Part 3 of 3) 



DTFSLCHK 




Note: 

This code is entered if 

&LBR=NO and DOS/VSE mode 

or&LBR=YES. 



DOS/VSE MODE REQUEST PROCESSING 



DTFSLFND 

If first call allocate storage for control blocks and 
save area via GET VIS. 

Establish linkage to request executing module 
$IJBLBSL Initialize request list. 



DTFSLFN1 

Build request list for FIND and branch to $IJBLBSL- 



If invalid request or failure to open 

Else: 

If book found 



Else 

DTFSLGET 

Build request list for GET and branch to $IJBLBSL" 



If invalid request 

If I/O error or bad record 
Else 



DTFSLNTE 

Build request list for NOTE and branch to $IJBLBSL 



If invalid request - 
Else 



DTFSLPNT 

Build request list and branch to module $IJBLBSL _ 



If invalid request 
Else — 



Mod. $IJBLBSL. Charts 91-93 



Process request 



(CANCEL \ 

program (SVC6W 



(FNDSL N 
'book-not-found^/ 



V normal return J 



Mod. $IJBLBSL Charts 91-93 



Process request 



V normal return J 



(Return to A 

&ERROR label/ 



(CANCEL N 

program (SVC6jy 



Mod. $IJBLBSL, Charts 91-93 



Process request 



(NTSL \ 

normal return ) 



(CANCEL *\ 
program (SVC6)/ 



Mod. $IJBLBSL, Charts 91-93 



Process request 



(CANCEL ^ 

program (SVC6)y 



(PTSL \ 

normal returm ) 
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Chart 91. SIJBLBSL (Part 1 of 3) 



DTFSL 
(or DTFPL) 




( $IJBLBSL Y 



DETERMINE LIBRARY TYPE AND COMMON 
RETURN 



IJBLBSLO 

Establish addressability to control blocks 




Here follows basically 
the same logic, but for 
the procedure library. 



Analyze request and call the appropriate routine 



I 92 J I 92 J I 93 J I 93 J 

GETRQST PNTRQST 

NOTERQST READRQST 



REQUEST PROCESSING FOR SOURCE LIBRARY 
FIND REQUESTS 1 of 2 



FINDRQST (FIND REQUEST PROCESSING) 




OPEN SOURCE LIBRARY 



Chart 93 



Open private and/or 
system source library. 



DIRSCAN 

Search the directory of private (if any and active 
members) and system library (if any and active 
members) for the bookname passed in request list. 




o 



REQUEST PROCESSING FOR SOURCE LIBRARY 
FIND REQUESTS 2 of 2 



BOOKFND 

Indicate in request list 'Book-found'. 
Save address of book in access control block and 
set up channel program to read member in sub- 
routines ETUPGET. 




Indicate to search private directory only 



FIND ALL request: 

DOSFQNTL 

Return next sequential active directory entry, 

if any 

FIND ALL request: 

SELSQNTL 

Return next sequential active directory entry 

of specif ied sublibrary if any 

FIND bookname request 

SINGLBOK 

Return directory entry for bookname passed 




Indicate in request list 'Book-found'. 

Save address of book in access control block 

and set up channel program to read member - 
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Chart 92. $IJBLBSL (Part 2 of 3) 

IJBLBSLO 




REQUEST PROCESSING FOR SOURCE LIBRARY 
GET REQUEST 



GETRQST 




At first GET a 160 byte source record is read 
(label GETREC-subroutine NEXTREC) 



ENDFIELD 




YES 



DECOMPR 

Move non-blank characters in source record 

to user card area until this area filled. 



YES 




ENDFIELD (2nd time) 

If a card spans two 160 byte records 

get next record (label GET REC-subrout. 

NEXTREC) 



IJBLBSLO 




REQUEST PROCESSING FOR SOURCE LIBRARY 
NOTE REQUEST 



NOTERQST 




Get a free entry in the note word table. 
Save in note word (address obtained from 
request list): 

— the library the member is found 

— the actual disk address of member record read in 

— the displacement in the member record 



(Return to A 
DTFSL J 

Note: 'Invalid Request' I 
set on in Request List! 



(Return to \ 
DTFSL J 



Note: 'End-of-Book' is set 
on in Request List 



(Return to A 
J 



(Return A 

to DTFSL./ 



[Note: Invalid Request 
on in Request 



;t is set 
List J 



(Return A 

to DTFSL J 
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Chart 93. $IJBLBSL (Part 3 of 3) 




REQUEST PROCESSING FOR SOURCE LIBRARY 
POINT REQUEST 



PNTRQST 

Restore from note word (address of which is 

passed in request list): 

— library to resume reading from 

— address of last read of that library 

— displacement in record 

Read in last member record again 

Free erbry in the note word table. 



(Return *\ 
to DTFSL J 




REQUEST PROCESSING FOR SOURCE LIBRARY 
READ REQUEST 



READRQST 

Get the next 160 byte source statement 

record (subroutine NEXTREC) 




YES 



Move record to user's area and return - 



/^ Return ^N 
^ ^ to DTFSL J 

(3 




OPEN SOURCE LIBRARY (IES) 



OPENLIBS 

Allocate control blocks and buffer space. 

Initialize control blocks. 

If DTFSL has no private expansion only 

system library is opened (label INITSYSO). 



INITPRVO 




copy a CKD prototype CCW 
chain into access control 
block and relocate it. 



calculate blocks to reach * 
and read length for 
FBA CCW chain and 
place it in copy of 
prototype CCW chain for 
FBA in control block. 



INITPRV3 

Copy prototype IORB for private library and relocate it. 

Open the private library via $$BOPEN simulation. 

INITSYSO 

Determine if any active entries when private 

assigned. Determine location and 

member status for system library ($$BOPNLB) 



INITSYS01 
CKD device 




FBA device 



Copy a CKD prototype CCW 
chain into access control 
block and relocate it. 



Calculate blocks to read 
and length to read for 
FBA CCW chain and 
place it in copy of 
prototype CCW chain. 



Copy IORB for system library into access control block 
Build a fix list for all control blocks and buffers. 



(Return A 
to caller J 
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DETAIL CHARTS 



Explanation of 
-A1 



Process 
*B2 



-*-C1- 
Label 1 



BW 



Subroutine 



-D1- 



Prepa ration 





-E1 

Predefined 
Process 





-F1- 



Input/Outputi 




m _ — ^^ 

I Terminal J 




|BD 

Filinp 



Flowchart Symbols 
DESCRIPTION 

A group of program instructions that per- 
form a processing function of the program. 
The label, if any, is shown above the block. 
*B2 

If any additional explanation is required, 
its location on the chart is identified by an 
asterisk and the block ID. 

Description of a subroutine. The starting 
label of the routine appears above the stripe. 
If the subroutine is documented in detail on 
another flowchart, the ID of this flowchart 
is also shown. 

An instruction, or group of instructions, 
that changes portions of a routine or initia- 
lizes a routine for given conditions. 



A group of operations not detailed in the 
flowcharts in this manual, such as user's 
routines. 



Any function of an input/output device or 
program, usually branching to an I/O routine 
to perform the function stated in the block. 



Points where the program branches to alter- 
nate processing, based upon variable condi- 
tions such as program switch settings and 
test results. 



The beginning, end or point of interruption 
in a program. 



On-page connector. An entry from or an exit 
to another function on the same flowchart. 
The number in the connector identifies the 
corresponding entry or exit on the chart. 



Off-page connector, an entry from, or an 
exit to, a given point on another flowchart. 
The characters in the connector identify the 
chart and block. The corresponding label, if 
any, is placed outside the connector. For mul- 
tiple entries and exits, an asterisk appears in 
the connector and the characters are listed 
nearby. 



EXAMPLE 



* BB-D4, INITLI 
BC-B2, OPENX4 
BL-JL, ENDPRN 
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Chart AA. 



COPYSERV 

Befer to Chart 01 



•***i 



*************** 



COPBNTRI I 

*****B2***«>****** 

* OPEN STSLST * 
♦INITIALIZE BORIC* 
♦AREAS, INSPECT * 

* OPSI * 

* * 
***************** 



COPI020 

*****C2^*^ft^*°**** 

* OPEH * 
♦REMAINING PILES* 
•POUCH EXEC AND * 

* MERGE CARDS ♦ 

* • 
***************** 



* D3 ♦ ..„ 

* ♦ . 
**** 

GEES X 

*****D3********* * 

* COMPARE * 

* DIRECTORIES * 
...X* AND PONCH *. 

* RECORDS * 



**************** * 



*****04*** ******* 

* * 

♦ PRINT TOTAL • 
.X* REQUIREMENTS *. 



COMPARING ♦. NO 
SI SEES .*... 



.*. 


RELIB X 


E2 *. 


*****g3********** 


*. 


* READ IN AND * 


PRIVATE *. IBS 


♦ SORT BOTH * 




....X* DIRECTORIES *........ 


.* 


♦ OP RLB ♦ 



***************** 



** ***B4*** ******* 

♦ COMPARE BOTH * 

♦ DIRECTORIES * 
X* AND POUCH * 

* STMS ♦ 

* • 
***************** 



*****! 



NO . 
...*. 

X 

**** 

t. * 

D3 * 

' * 


* PRIVATE *. 

SLB .* 
*. .♦ 
♦. .* 
*. .* 
♦ IBS 








**** 






SRCLIB X 

*****q2** ******** 

* READ IN AND * 

* SORT BOTH * 

* DIRECTORIES *.... 

* OP SLB • 


*****63********** 

* COMPARE BOTH * 

* DIRECTORIES ♦ 
....!♦ AND PONCH *« 1 

* CARDS * 



F5 *. 
.♦ *. 
.* COM PARING 
.X 1 *. SXSRBS 



*****G4***** ***** 



***************** 



PRCLIB 

*****Q3**« ****** * 

• RBAD IN AND • 

• SORT BOTH * 

• DIRECTORIES *X. 

• OP PROC. LIB * 

• * 
***************** 



*****J3********* * 

* COMPARE BOTH * 

* DIRECTORIES • 

* AND PONCH ♦. 

* CARDS * 

* « 
***************** 



•ft ***J «•** ******* 

* * 

* PRINT TOT£& • 
.X* RBQOIRXBBRTS *• 



*****JS< 



CLOSE PILES 
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Chart EX. 



BAINTCL 

Refer to Chart 24 



•PA • 

: ?v •*: 

•«•• I 
•• •• 

•• IUX CABD • • TBS 
•. SCI I LB1GTH .*.... 
• •BXCBBDBD •* 



•••• 

* * 

* C2 * 

* * 
***• 



•• COSDBBSB * 
.LIBIT FOB SS 
♦. LIBB ART •* 



PRBSBBT. 
■'••■ 



•• •• 


X 


• BO 


••••« 




♦BT • 




* ai* 


. 


• * 



*****D3********* * 

* POUT TO * 

* »3B43I HO * 

* SOOBCE, • 

* STATEBENT LIB * 

* * 
**************** * 



***** B3»** ****** * 

• PBIIT HBSSAGB * 

• OSIBG BBSTABT * 

• ROOTINB IN * 

• ROOT PHASE * 

• * 
***************** 



*****€«*** ******* 

• * 

• LIBH. DATA * 
X* TO STATUS * 

• TABLE * 

• * 
***************** 



.* LIBB. ». 

ON PBA 

•. DEflCB .* 



*****£«**• ******* 



♦LIBB. CHARACT. 
*. TO I/O TABLE 



***************** 



**D5******* 



*********** 



*****E5 ********** 

* • 

* PBBPABB IOBB • 

* ABD INSERT * 

* ADDB INTO * 

* DBPINE EXTENT * 
***************** 



**p<|»****** 



•FA * 

* H3* 

* * 



***** 
•PA * 
* Ai* 

* • 



*********** 



.*. .CL8BQ. .*. 

CI •. . G2 •. 

•• *• .* ' *. 

•» CONDENSE ♦ . TBS . .♦ CI LIB *. T 

•.LIBIT FOB CI .• •.^ ASSIGNED .*. 

• •LIBBABT .* •. .• 

•• .♦ ♦ . .• 

*. .• •. .* 

• BO • NO 

i* • : 

ii 1 *. *****a2********** 

•• . •• • POINT TO • 

.• OONDBNSB •. TBS • *3B%3I NO • 

*. UNIT FOB .*.... • PRIfATB COBB • 

*. BELOC. •• . • IBAGE LIBBABT • 

•LIBBABT* . * ASSIGBED* • 

•. .• X ***************** 

• NO ••••• . 

•BT • . 

• Al* 

. • * -.. ..-, 

• . 

X BLBBBQ • 

J1* *♦. •••♦•J 2** *•»*••** 

•• •. • PRINT BBSSAGE • 

•• CONDENSE •• TBS • OSING BBSTABT • 

•. UUT FOB ...... • ROUTINE IN • 

• • PBOC. •• . • BOOT PBASE • 

•LIBBABT* • • 

•. .• X ***************** 

• NO ••••• 

•BT • 

♦ F1* . 
X * • X 

•••• • ***** 

• • FLBBQ *FA * 

• C2 • * H3* 

• * ■■■■■■*■* ■■■■ 
•*•• * 

HOROP 



*****63********* * 

* ' • 

* BOTB LIBBABT • 
.X* DATA TO • 

* STATUS TABLB * 

* • 
***************** 



H3 •. 
• •- 

LIBB. •. TBS 
ON FBA ...... 

DEVICE •• 



*****J3********** 

* * 

* LIBBABT * 
•CBARACTEBISTICS* 

* TO I/O TABLB * 

* * 
**************** * 



♦*B4******* 



*********** 



*****jl|********** 

• * 

• PBBPABB IOBB • 

• INSBRT ADDR • 

• INTO DBFIBB • 

• BXTBBT £ 
***************** 



***** 
•PA • 
* A1« 
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11 *. 
.* *. 

BL LIB > 
ASSXGEBD 

.« 
*• .* 
*„ •• 
• BO 



***** A 2***** *•* ** 

* • 

* BO?B LIBRAE! * 
•X* DATA TO *. 

* STATOS TABU • 

* • 
***************** 



.* LIB*. 0* *. FJ 
.X*. PBA DEVICE .»., 



FBARBL 
•••X* SBXSGB OB • 



* POSIT TO * 

* •3B«3I a BO * 

* RELOCATABLE * 

* LIBRARI* * 

* * 

*** *** *********** 



*****B3********* * 

* • 
#* LIBRABT * 

•CHABACTBBISTICS * 

* TO I/O TABLB * 

***************** 



• PBBPABB XOBB * 

• ABO XBSBBT * 

* ADDB IBTO * 

* OBPXBB BXTBBT • 

***************** 



*****C 1********** 

• PBINT HBSSAGB • 

• SIM 6 BBSTART • 

• BOO TIME IB * 

• BOOT PHASE * 

• * 
***************** 



***** 
•PA * 
• A1* 



X 
***** 
*PA * 
* H3* 

* * 

* 

HOROP 



***** 
♦EX * 
* J1* 



,*PBOC LIBB. 
llflEADT 
». CALLED 



*•** 

*BX * 

* E1 *JE. 



SRXBOP X 

*****6 i********** 

* PBINT HESSA6E * 

* •3H2H» 0SIB6 * 
*RB START ROUTINE* 

* II ROOT PHASE * 

* * 
***************** 



****H f********* 

* * 

* CSSTART * 

* * 

*************** 



PLPERH 

*****G2********** 

* PRIST HESSA6E * 

* »3M37I» USING * 
•BRSTART ROUTINE* 

* IN ROOT PHSE * 

* * 
***************** 



**** 
*PA 1 
* C2 



*.X 



**** 

CANCEL 

**H2******* 

* TORN ON * 
CANCEL SR AFTER 

* GIVING STATOS * 
* REPORTS * 

* * 
*********** 



»***J2********* 
GO TO ENDJOB * 

* IN ROOT PHASE * 

* * 

*************** 



*****£3*********f 

* POIHT TO * 

* «3H43l» NO * 



***************** 



ERCONT X 

*****g3********* * 

* PRINT BESSAGB * 

* USING ERSTART * 

* ROUTINE IN * 

* BOOT PHASE * 



♦INSERT LXBBABX * 
.X* DATA IBTO • 

* STATUS TABLB * 

* * 
***************** 



•* ***6 4*** ******* 
* 
* 
OSE STSPL • 

* 
***************** 



«*B5****<**>» 



LIBB 
OH FB L 
DEVICE 

**. 



.* 
*~HO 



** *** J 4********** 



* TO I/O TABLB ^ 

***************** 



*****J5********** 
* 

* PBBPABB 

* IBSBBT __. 

* XlggJBMIl 



lift 

rim 



***** 

♦FA * 

* A1* 



% 40 D OS /V S Libr a rian 
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HAIBLINE X 

****** y* ******** 

* GBT DIGIT • 

* HELD OP * 

* OPERAND • 

* *Jl * 

* * 
mm* ******** ****** 



.*. EBRDSP 

B1 *. *****B2********** 

.• CHAB *. * POINT TO * 

.* LENGTH *. 10 * ERROR HBSSAGB * 

.T1UD AND ALL.* X*«3H21I INVALID * 

*. NUMERIC .* * OPERAND* * 

». .* * * 

*. .* ***************** 
* TBS 



*** **Q f**** ****** 

• PACK THE » 

• CONDS LIBIT * 

• AND CONVERT * 

• TO BINARY * 

• * 
***************** 



*****C2********** 

* PBIRT BESSAGB * 

* USING EBSTABT * 

* BOUTIHE IN *.... 

* BOOT PHASE * 

* * 
***************** x 

***** 
*EI * 
* H2* 



.*. BEADCKJ) 

D1 *. *****D2«#******** 

.* *. *BEAD DESCBIPrOB* 

PBA *. HO * RECORD OH CKD * 

SWITCH OB .* X* DEVICE USING *. 

.* * RDENT BOUTIHE * 



*. .* 



***£f****** ****** 

* BBAO LI BR. * 
DESCRIPTION 
* 01 PBA DEV. * 

***************** 



***************** 



.♦COHDS LIBIT*. 

EXCEEDS 

*. X«PFFF« .* 



*****£ 3********* * 

* LOAD PBBBBG4 * 

* WITH X»PPrF* * 

* TO SET CONDS * 

* LIBIT AT * 

* BAX. VALUE * 
***************** 



*****f i********** 
♦STOBE CONDENSE * 

* LIBIT IN * 

* LIBR. * 

* DESCRIPTOR * 

* RECORD * 
***************** 



*****P3********* * 

* STORE CONDS * 

* LIBIT AT INTO * 

* DESCRIPTOR * 

* RECORD 

* (2 BXTBS 
************* 



* WHITE 
LIBR. 
* DESCRIPTOR * 
RECORD 
***************** 





NOTH1 


X 






** 


***G3********* * 




♦ 


WRITE 


• 




* 


DESCBIPTOB 


* 




* 


BECOBD USING 


• 




* 


WTDATEND 


* 




* 


ROUTINE 


* 




***************** 


REF1BEBCBS **** 
TO - F1H3: * * 




BI13. 


BXJ2* 
BIB3* 


* *.X. 




btci; 


• 






**** x 






HOROP 


.*. 

H3 *. 

.* ALL *. 








• OPERANDS * 


. 3 




X*. 


PROCESSED 


,* 



HEWCA RD 

*****H4*«* ******* 

* LOAD ADDR OP ♦ 
*BHTBBTN IN ROOT* 

...X* PHASE INTO * 
*LNKRBG1 AS EXIT* 

* PROB CSSTART * 
***************** 



*J1 
USING CSCONT ROUTINE 
IN ROOT PHASE 



*****J3********** 

* GBT POSITION * 

* AND LENGTH OP * 
♦NEXT LIBRARI ID* 

* *J1 * 

* * 
***************** 



****J «*** ****** 

* CSSTART * 

* IN BOOT PHASB * 



X 
***** 
*EX * 
* C1* 

* * 
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♦♦••A I********* 

• * 

* baibtcb •* 

*************** 



****£ 3********* 

• • 

• CBIOWI • 



• ■!» • 



i ■ 

.* PCIL *. 
•• CBOSS *. IBS 
*AS3IGBED AIMS.*.... 

♦. pin .* 



44 ••As*** i **###0 
• bbboot m • 

•I* Ii BOOT PHASB • 



* BO 



*****B 1********** 

* BOTE * 

* cbsr PBOB * 

• IBITABLB TO * 

• CORJBSW * 

♦ . * 
**• *** *********** 

*•** l 

* * » 

• CI *.X. 

* * . 

**** X 
TTPCOBCK .*. 

CI ♦. 

'•• *- 

.* BEL *. I 



CKBOLTI .*• 

B3 ♦. 



*°* 



X 

***** 
*PB * 
* A3* 

* * 



•***C2********* 

• RBTDBB * 

• TO CALLEB « 

• * 
*************** 



3:Mt 

* .* 



.5. 

D1 ♦. 



*PB * 

* A»» 

* * 



TBS 


.* 


ELIB 


*. 


...» 




COBOBBSB 


. 




* 




.* 






*. .* 




X 

***** 




• BO 




PB * 








11* 








* * ■ 




. ' 





.* CIL 

*. COBDEBSB 
*. 



**B2******* 

* S?C 12 * 
•SET SIITCH II* 

..I*OISP 57 OP OOBR* 
TO ALLOW IITBR- 

* BOPT * 

*********** 



***** 
*PJ • 

* B1* 



BFS * 

SI STBB 
**. .** 

* IBS 



•****C3********** 

*' * 

* GET PIB TABLE * 



***************** 



'S5L. B ,.I 



JBSJ. 

•*** 



*****B5********** 

•CBBCS FOB HOLTI* 

• PBOSBABBIBG * 

* * 
•*•*••***•*•***•* 



.1. 



X 
.*. 

D3 *. 
.* *. 

.* ATTBMTIOH •. BO 
. BOOTIES .*... 
*. ACTIfB .* 
*• .* 
*. .* 
* IBS 



B3 *. 
.* *. 
BO .♦ ART • 
...*. POBEGBOOBD 

*. ACTIfB .* 
*. .* 



. .♦ 
* BO 



*****D«********** 

* PBIRT MESSAGE * 

* 3B43I • 

* «BO PCIL* * 

* *H2 • 



* TBS 



*****P3********* * 



*.PdL .* 



**os******* 

* STC 12 * 
* AIXOB PCXL ' 
* TO BB ASSIGB 

% *■ . 

*********** 



•*B5«*> 



• PBBPABB • 
••BEOBGABIKATIM* 

• BBSSA6B* • 



■» 



**** . 
DIB X 
***p«********** 



*H2 



l&l 



***************** 



***P5************ 
^LOCCBB p 

PRIST BBOB6AJI- 
> ZATIOB BS6 OB* 

SUBS—* 



**6f******* 
•SBT SBITCB * 

• TO IBOICATB * 
• CIL BBIRG * 

• COBDEBSED * 
COBBTCHD**0** 

*********** 



*****€«***** ***** 



**•*•*•*•*•***•*• 



PBZBT • 

♦BBOBCABISATIOfl • 

: asc °f H f ISM * : 



**g |******* 
* ♦ 

* TO HI OPP ' 
♦ CIL COBOBBSB 

• SBITCB ' 



*B2 
OSIBG BBSTART BOOT I IB 
IB HOOT PHASE 



*****H3********** 



B« ♦. 
.♦ PABT. *. 
TBS .* SIZE *. 

* BO 



*****15********** 

• 6BT UBBABI • 
♦CHARACTERISTICS* 

• PBOB IIITABLS • 







X 






.*. 






J1 *. 






.* *. 


TBS .* 


STSTBB *. 


...••■ 


CIL BEIHG .* 




• 


•COBDBBSBO.* 






*. .* 


*!** 




*. .* 

* BO 


* * 




* 


* B5 * 






* • 






**** 




**K 1******* 




* 


SIC 13 • 


. * ■ 


PBBPBBT * 


• * 


CBOSS ASSI6B * 


•*-■ 


DBBIB6 * 




• 


OOIDBHSB • 



•****J2********** 

* • 

* GET PCIL DISK • 
•X* ADDB PBOB • 

* PETCa TABLE * 

* • 
***************** 



X 
.*. 

R2 *. 
*. *. 

BPS *• RO 

SOPPOBT .*... 



STATUS 
BBPOBT 
****** 



•* TO S PBBfBBT \ • 
• IBTBBBOPTS * 



****K 3********* 

* 60 TO BHDJOB * 

* IB BOOT PBASB * 



*PP * 

vr 




X 

***• 
* 
• B4 ' 



* A* * 

• * 
**** 
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••** 

*• 12 • 



•PD • 



plcobbtb i 

**A %*••*••* 

•SET SNITCH • 

•FOB PL BEING ^ 

• COBDBBS 

• •cubntc- 



db.se 

HTCID 
Ctpt 



**B >»****** 

• * 

TOM OFF 

PL COHDBHSB 

S BITCH ' 



***************** 



*****B 2** ******** 

* HOf B BBCOBD * 
♦AND BNTHI SIZE • 

* FOR PL TO * 
* a LIBBCDSZ* JFOB* 
*OSB IB HAIilN.)* 
***************** 



BLCOHBTB X 

**A3******* 

SBT SB FOB BL 

• BEING * 

• CONDENSED * 

% -CUHNTCHD- ^ 



•SBT SI FOB * 

• SS BBIN6 * 
• CONDENSED 

* -COEITCiD- • 

****** 



**B3*****«* 

# SBT OFF BEL/* 
* COHDBHSB * 

* S MITCH * 
•-CONJBSH BIT * 



••B******** 
* SBT OFF * 
•SSL COHDBHSB 

• siiTca 

•-COHJBSN BIT 



.*. 


C 


EKSHOVB I 


CI *. 




*****C2********** 


.* •. 




• HOVE CL BCD * 


IS PL * 


.10 


•AND El TRY SIZE * 


ALLOCATED 




* TO *LIBBCDSZ a * 


.• 




* FOR OSB IN * 


•. .* 




• HAINLINE * 


*. -• 


I 


***************** 


• IBS 


***** 






•FD * 


**** 




• C1» 


• * . 


• • 


• * 


* D2 ♦ .!. 



.* 


X 


* IBS 


***** 




•PD • 


. 


• C1* 



TTPCONCR •*** 



•****D t********** 

• * 

• •OSB» * 

• P BOG LIB * 

• SIC 63 • 

• • 
****** *********** 



*****02********** 

• HOD in HOfE * 

* INSTRUCTIONS * 

• STARTING AT • 

* •BLEU* IB * 
*HAINLINE *K5 * 
***************** 



*****£2** •** ***** 



***************** 



X 
***** 
•PD * 
* CI* 



• OF FROCK 

• LIBRABI 
IB PROCESS* 



*****D 3* ********* 

• IBIT TO PRINT • 
•-REORGANIZATION * 
•OP RELOCATABLE • 

• LIBRART IN • 

• PROGRESS- * 
**************** * 



BBITE SESSAGR 
• «3H80I • * 
ON STSLOG 
*** ** ********** ** 



*****P3********* * 

* * 

* WRITE HBSSAGB • 

* •3H80I* * 

* *J2 * 



•* ***D4********** 

• IBIT TO PRINT • 
•-REORGANIZATION* 
•OF SOURCE STUNT* 

* LIBBABI IB * 
PBOGBBSS- 



****B5********* 

* * 

* LOGGER • 

* * 
*************** 



• SVC 
NRITB 
♦ HBSSAGB • 
OH SXSLOG 
***************** 



*** * *D5***** **** * 
~ * * * 

* SfC 7 * * 

• BAIT * * 
♦IF RBQUIBBD* * 



*****H fir********* 



*****j I********** 
•SAVE LOG. UNIT • 
• NO. jfboh * 
•MITABLE), SET * 
•SEEK ADDR. FOR * 
•SXS.DJR.RBAD R1* 
***************** 



•IB 



****«K f**** ****** 

* INSERT * 

* LIBRARY DATA • 

* INTO STATUS * 

* TABLE * 



*****G3********* * 

* SATE LOG UNIT * 

* NO,. SBT SBEK * 

* ADDR FOR * 

* STS DIR READ * 

* RECORD 1 * 
***************** 



*****H 3* ******** * 

* SBT CONSTANTS * 

* FOB STSRES * 

* DEVICE FOB * 

* RELOCATABLE * 

* DIRECTOR! * 
**************** * 



*****J 3*******1** * 

* INSERT * 

* LIBBABI DATA • 

* INTO STATUS * 

* TABLE * 

* * 
***************** 



*****K 3*** **** ** * 

* HOfE BL BCD * 
•AND EBTRI SIZE • 
*T0 - LIBRCDSZ- • 

* FOB USE IN * 

* HA IN LINE * 
**************** * 



***£«***** ******* 
LOGGEB FB 
»-*-*- » - ♦ -»-*-»-» 
NRITB HBSSAGE 
* •3H80I* * 
ON SI SLOG 
*** ************** 



*****p«********** 



***************** 



** ***Gt|*** ******* 

* SAVE LOG UNIT • 

* NO.SET SBEK • 

* ADDR FOB SIS * 

* DIB BEAD * 

* BBCOBD 1 * 
** *************** 



*****H4********** 

* SET CONSTANTS * 

* FOB STSBES * 

* DEVICE FOB * 

* SOURCE STENT • 

* DIRECTOR I • 
***************** 



** *** J4*** ******* 

* INSBBT * 

• LIBBABI DATA * 

• INTO STATUS * 

♦ TABLE • 

* * 
***************** 



.• IS 

SISLST 
••ASSIGNED 



****P5********* 

• RETURN TO • 

• LINK • 

• ADDRESS • 
********••**•** 



**«*C5********* 

• RBTUBH TO • 

* LINK , *X- 
ADDBBSS+6 

-* ff!r2S ****-" 



*****! j»*** ******* 

• HOVE SS BCD • 
•AND ENTRX SIZE • 

• TO-LIBRCDSZ- • 

• FOB USB IB • 

• HAINLINE • 
** ******** ******* 



•K5 
IHSTBUCTIOBS ABB HOOIFIBD 
FOB BLOCK ABD ADDBBSS 
BXTRACTIOB ABB ADDBBSS 
IBSBBTIOB FOB THB 
APPBOPRIATB LIBBABI 



• D2 • 

• * 
*♦** 
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* HOIB LOGICAL * 

* UNITS IIIO * 

• CCBS * 

• * 
*** *** *********** 



***Q f************ 

EXDIRIO PK 

*_*_*_*_*_*_*_*_* 

READ A STSTBH 



*♦•♦ 

♦ * 

♦ A2 ♦ 

*■ * 

**** 

Ix.. 

BEADDIB X 

»**A2*"** ******* 
DIRRDRTI PK 

*-*-*-*-*-*-*_*-* 

READ 16 
* DIRECTOR! * 

RECORD 
***************** 



*****B2^* ♦♦*♦**** 



**** 

* * 

* A3 * 

■ **** 



* DIRECTOR! < 




* TOGETHER * 


BECORD 




"■*■■. ■'■'■. * 


**************** 




***************** 


2 




, **** * 






* * 






* C2 *.X. 






* * 


X 




**** x 


.*. 


NEXTENTR .*. 


CI *. 




C2 *. 


.* *. 




.* ♦. 


.♦AMI DELETED*. 


HO 


.* *. IBS 


♦ .BLOCKS II THE." 


.... 


♦ .END OP INPUT .♦. .. 


♦. LIBRAE! .♦ 




*. REACHED .* 


♦« .* 




■ ♦• ' ■ .♦ 


*. .♦ 


X 


♦. .♦ 


* IBS 


***** 


♦ NO 




*FD ♦ 




: 


♦ CI* 
♦ * 


: 



*****B3********** 

* * 
*HOTE DIBBCTOBI * 
♦BNTRI TO OUTPUT ♦ 

* AREA * 

* : . » 
***************** 



*****C3********** 
♦DI8BNTBP FM* 
*_*_*_*_*_*_*_*_* 

* INCEBHBNT DIB * 
♦INPUT CTR BI 1 ♦ 

* * 
***************** 



♦ A« *.„. 

♦ * . 
»•** ' X 

.*. 

A* *. 

.* ♦. 

.♦ DIRECTOR! *. 

*. INPUT AREA . 

♦.EXHAUSTED.* 



***B ****** ******* 
DIRRDRTN FK 

READ NEXT 
* 16 DIRBCTORX * 
RECORDS 
***************** 



• A5 • 

♦ * 
**** 



READ 16 

DIRECTOR! 

RECORDS 



*****B5********** 

♦ SET POINTERS ♦ 

♦ TO DIRECTOR! ♦ 

♦ INPUT AND ♦ 
♦OOTPOT BOFFBRS ♦ 

' * * 

***************** 



X 

*****cn********** 

♦ * 

♦ INITIALIZE * 

♦ DIRECTOR! ♦..« 


.ASTCHK .♦. 

C5 ♦. 
.♦IS THIS*. 
X ** LAST 
.....X*. DIRECTOR! 


** 


NO 
*. ... 


♦ INPUT AND ♦ 
♦OUTPUT POINTER ♦ 
***************** 


*. ENTBI . 
*. .* 
*. -* 
* IBS 
**** . 

* * . 

* D5 *.X. 


X 

**** 

* * 

* A3* 

* • 



.* LIBRARI *. IBS 
ALREADY ...... 

♦ .DESTROIBD.* 



♦ D5 ♦ 

* * 
**** 



*****£ |********** 

♦ * 

♦ ROTO CCH ♦ 

♦ TO CHAIN ♦ 

♦ TO WRITE ♦ 
*. *E5 * 
***************** 



***F 1************ 
BXDIRIO PR 

*-*-*-*-*-*-*—*-* 
NRITB LIBRARI 
* DESCRIPTOR * 
RECORD 
***************** 



*****Q 1********** 

•CALCULATE BUF™ * 
*FER ADDRESSES. * 

* INITIALIZE * 

* CCN STRINGS * 

* # 
*** *** *********** 



.* CIL/PCIL ♦.NO 
TO BE .♦... 

♦.CONDENSED.* 



.* END ♦. IBS 

*.OP DIRECTOR! .*.... 
*. REACHED .* 



B2 ♦. 

.♦TTR OP ♦. 

.♦THIS BNTRI ♦. 1 

♦. LOWER THAN .* 

♦.TTfl PIRST.* 

*. GAP .* 



* IBS 



«****P2********* 

♦ UPDATE TO 

♦ NEXT BNTRI 

♦ IN INPUT 

♦ STRING 
* 
*************** *> 



**** 

* * 

* C2 * 

* * 
♦*** 



.♦ DIRBCTORT ♦ 
♦. OUTPUT ABBA 
♦ . PULL .* 



*****£3********* * 

* * 

* INITIALIZE * 

* DIRECTOR! * 
♦OUTPUT POINTER * 

* * 
***************** 



*****p>3********* * 

♦ADDRUPDD PH* 

*-*-*-*-*-*-*.*_ * 

♦ UPDATE ♦. 

♦ DIRECTOR! ♦ 

♦ DISK ADDRESS ♦ 
***************** 



**** 

* * 

* A5 ♦ 

* * 
**** 



HAINCIL X 

*****j i********** 

♦ GET TTB OF ♦ 

♦ PIRST GAP IN ♦ 

♦ LIBRARI PROH ♦ 
♦LIBRARI DESCR. ♦ 

♦ BECORD ♦ 
***************** 



*****£ I********** 

♦ * 

♦ CONTORT TTR * 

♦ TO CCHHH ♦ 

♦ DISK ADDRESS ♦ 

♦ * 
***************** 



*****G 3********** 

* * 

* SEARCH POINT * 

* OF INSERTION * 

* IN OUTPUT * 

* STRING ♦ 
**************** * 



*****D3********* * 

♦ * 

♦ SAfE ENTRIES ♦ 
♦AFTER POINT OP ♦ 

♦ INSERTION IN ♦ 

♦ OUTPUT STRING ♦ 
***************** 



*****J3* ********* 

♦ DECIDE HON ♦ 

♦ HANI ENTRIES ♦ 
♦CAN BE INSERTED ♦ 

♦ AT THE SANE ♦ 

♦ TIHB ♦ 
***************** 



• *** 

♦ . ♦ 

♦ m ♦ 

♦ * 
***♦ 



♦INSERT NEW TTR ♦ 

♦ IN THE ENTBI ♦ 

♦ OP THE SORTED ♦ 

♦ OUTPUT STRING ♦ 
***************** 



*****pi|*** ******* 

* • 

* CALCULATE THE * 

* NUHBBR OF *. 
•LIBRARI BLOCKS * 

* * 
***************** 



.* *. 
.* 1HOLE *. 
*. LIBRARI 
♦.CONDENSED.* 



• INITIALIZE 

• HSSSAGR 

• •3H75I« 

***************** 



***** 
*FL * 
* BI* 



*£5 

DURING CONDENSE, THE 
LIBRAE! DESCRIPTOR 
RECORD HILL CONTAIN 
THE HORD "OSTEOID* 
IN THE DUHHI NAHB 
FIELD. AT COHPLETION 
THE DUHHI NAME FIELD 
BILL BE SBT TO ZEROS 
BI SHAINDIR. 



**G5******* 



*********** 



* >u 
























X 






.*. 






H4 *. 






.* *. 




••*♦ * 


► A STOH *. 


NO 


* * 


TABLE READ! . 


*... 


.X* B* * 


►. .* 




* * 


*. .* 




•**♦ 


*. .* 






* IES 






Ix ..... . 







.♦ FIRST 
♦. STOH TABLE 
♦ . READ! .' 



-IES 



*****K3********** 

* * 
♦INSERT ENTRIES ♦ 

♦ AND HO¥E ♦ 

* SATED ENTRIES ♦ 

♦ BACK ♦ 
**************** * 


*****£ I**** ******* 

* UPDATE * 
♦DIRECTOR! HITH ♦ 

* ENTRIES HITH * 

* HEN TTR * 

* *K5 * 
***************** 


X 

*♦** 

* * 

* C2 ♦ 

* * 
**** 






X 

**** 

* * 

* A2 * 

* * 
**** 



.X* ENTRIES HITH * 

* NEB TTB * 

* *K5 * 
***************** 



..X* B4 • 



*K5 
USING HAIHDIR ROUTINE 
IN PHASE HAINTDR 
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Chart FG. HAINTCN - Condense Directories 
Refer to Chart 25 



********** 



*****B I********** 
•ADRKX ^ PL* 

• GET LIBBABT * 

* STAR ADDR * 
♦PROH DIB BRIT • 
****** *********** 



*** **c I********** 

• STORE TBI * 

• ADDRESS AS * 

• LIB OOTPOT * 

• BISK IDDBBSS * 

• * 
•** •** **** * ****** 



• D1 *JC. 

• * 
•*** 

BIB IBB BP I 

*****D 1** ****** 

• BOOT TO 

• BBXT DIB 

• EBTRI IB 

• IHPOT AREA 



B1 •. 

.* IS *. 
• DIB IBPDT *. HO 
ABBA BBPTT .*... 



READ A BEV 
• DIRECTOR! • 

RECORD 
******* ********** 



LAST 

DIBBCTOBT 
. EHTRT .« 



***** 
*FH * 
* A3* 



«****A2** 

•ADRBX PL* 

*.*-*.*.*..*_»_*_• 

* GET LIB DISK * 

* ADDBBSS PBOB * 

* HOBDBL BBTBT * 
***************** 



*****B2********** 
•BLKEX PL* 
m- m - * -*—*-*-*— *-* 

♦ GBT BLOCK * 

* COO IT PHOH * 

• SI HE EHTRT * 
***************** 



*****C2********** 

* BOTE TBE * 

* DIRECTOR! * 

* BHTRI TO * 

* OOTPOT AREA * 

* * 
0m*************** 



*****D 2* ********* 
•DIREBTBP FH* 
*-*-*_*_*_*-*-*-* 

* OPDATB DIB * 

* EHTRT COOHTBH * 

* BT 1 * 
***************** 



*****B 2** ♦♦***♦♦♦ 
♦ADRIHS FL* 

* -* _*_*_* _* -*-.* _* 

* CHAHGE LIB * 

* DISK ADDRESS * 

* SITHIM EHTRT * 
***************** 



ADROPDLP X 

*****j»2********** 
♦ADROPDLP FH* 
*-*_*_*_*~*-*_*_* 
♦OPDATK LIB 00T-* 

* POT ADDR OHCB * 
♦FOR BACH RECORD* 
***************** 

**** r 

*FP * 

* F«» *.I. 

* * 
**** 

CIDSETOP I 

*****Q2********** 

* IHITILIZE * 

* SEEK ADDRESS * 

* POIHTER ABD * 
♦RECORD COOHTER * 

* * 
***************** 



.* IS LIB *. 
*. RECORD 
•.AVAILABLE.* 



.* IS CCB 4. * 
*. AVAILABLE .*. 
*•!■ CBAIB .* 



**A5******* 
*SK SB BOB * 

* CCB CBAIB * 
.X*PARTIALLI OSED * 

* -PBBDSi- * 

* ■!???? • 



*****B«**« ******* 
* 

* IICBBHEBT 
I* IBCOBD 

* COOBT BT 1 



*****B5********** 

* STORE SEEK * 

* ADDBESS FOB * 

* BEIT LIBBABI • 

* RECORD * 

* * 
******** 



OFLOCHK . . 

C3 *. 

.* BILL *. 

.* BEAD OF *. IBS 

*. THIS BCD .*.... 

*. CAOSB .* 

*.OTFLO.* 

*. .* I 

* io ***** 

*FH * 
* A5* 



*****D 3* ********* 
•ADDBOPDL FH* 

*-.*-•-*-*-*-*-•- * 

* IBCHEHBRT * 

* ADDS TO MBIT * 

* LIB RECORD * 
**************** * 



*****B3********** 

* * 

* POIBT TO * 

* BEIT CCB * 

* IR CHAIB * 

* * 
***************** 



X 
***** 
*FB * 
• A1* 

* * 



.♦PROCESSUS 
. CIL/PCIL 
*. 



*PP • 

* G** 
• • 



* POIBT TO 
♦BEIT DIBECTOBI 

* OOTPOT BBCORD 

**************** 



***f5************ 

DIRBTRTB FK 
*-*-*-*-*-*-*-*-* 

RBITB 
* DIBBCTOBI * 
RECORD 
***************** 



RBFBBBBCBS**> 
TO PGHlt * 
FHD2, FHK1* 



.BBTBT *. 


TES 


.♦ CCH CHAIR * 


DELETED .* 




*. PARTIALLI 


-* 




*. OSED .* 


*. -* 




*. -* 


*. .* 


I 


*. .* 


* BO 


**** 


* TES 




* * 






* D1 * 






* * 






**** 






HLLSTEHT X 


I 




.*. 


**j ?******* 




J2 *. 


* 




.♦1ST RE1*. 


SET SB FOR * 




.♦OOTPOT BCD * 


HOKBLAHK * 




*. ADJICEHT TO 


BBTRT FOOBD * 




*„ LAST ,* 


-COBDSH- * 




♦. .♦ 


*********** 




♦. .♦ 



.PTRIBIT I 

*****g3********** 

♦ POIRT AT 1ST ♦ 

♦ READ COM AHD ♦ 

♦ GET AVAILABLE ♦ 

♦ CCH COOHT ♦ 1 ♦ 

♦ * 
***************** 



*****J3********** 



HOVE SEEK 

ADDRESS 
IHTO CCH 



***** 
♦FH ♦ 
♦ CH* 



♦ A3 * 

* * 

**** 



******** 
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Chart PH. MINTCN '-. Write Condensed Library and Directory 
Refer to Chart 25 



•re * 

vr 



*•*• 

* * 

**•* 



•ps • 



***• 



••as 



**8 i*********** 

* ABD DISK SBBK • 

* ADDBBSS • 



.* USY ♦. 
• DIBBCTOBI .< 
*BBTBI FOOED* 



**B2******* 
♦SBT OFF SB • 

• CCV CHAIHS * 
* BBOKBB 

* -COBDSH- * 
* BET 0«0 * 

*********** 



BLLSTBBT .♦. 

A3 ♦ . 

.* *. 

.• BOBBLABKS *. 

*. BBTRT FOOBD .' 




•** 4k ****** ****■ 



.«PB0CBSSIB6 *. IBS 
*. CIL/PCIL .*.... 
*. .* 



i 


X 
.*. 


***C ************* 


C2 • . 


BXBCXD FK 
*.*-*.*.*.*-*_*_* 


.* *. 


.* KBTHI 


BBIO FBOH 


• . CCB CHAIB 


» SYSBBS LIBRARY* 


*. OSBD 



*FG • 

* J2 *.X. 

• * .X. 



SDOPDJTK 



»««•***•»******•<* 



**£)»**•*•* 
• BBSBT * 

PAST CCB • 



• X.. 

***** 

*PG * 



*C3***»»«**** 

V • 

* BOVB DIB * 

* BBTBT TO * 

* OUTPBT ABBA * 

* * 
***************** 



*****& 3********* * 
•DIBBBTBP PH* 

*-*-*-*-*-*—*.-*-. * 

* IBCBBHBBT * 

* OIBBCTOBX * 

* BOTH I CODHTBB * 



BBKCBB X 

*****C**** ••*•*•• 

• BACK OP * 

* POIBtBB 1 * 

• ^CCf ABO • 

* BBBAK CHAIB * 



B3 *. 
.♦ IBIS *. 
„* DIB BCD *. BO 
*. COKTAIB STS .•-.. 

*. OIB .* 



**D4******* 
•SBT S BITCH • 

* OB CCB • 
* CHAIB BBOKBB 

* -COBDSB- • 
• BIT 0»1 • 

*********** 



♦ B1 • 

* * 
**** 



•41* **F 1**** ****** 



**P3******* 

* SBT SB OB * 
•SIS DIBBCTOBI* 

* IB COBB • 
• HPBBDSB- * 

• »X»OF« • 
*********** 



LSTBBT X 

•**p«***** ******* 

DXBBTBH FK 

*_*_*_*-*-*.*._*..* 

HBITB LAST 
* DXBBCTOBIBBCOBD 



****. 

* * 

* F5 *.„. 

* * • 

***J* 
HSDHBT 

* HOfS~0FDA*BD 

* SISTBB DIB 

* OOTPOT ABBA 



•«e )**** ******** 

BBXTB COBDS 

UBBABT 

BBCOBD — 



*****gt**** ****** 

282ESS-.-.-2: 

DATE LIBBAH 
OOTPOT DISK 

•«*«•$**•** 



"^ISS^a********** 

* OPDATB BBXT * 

* AVAILABLE • 

* DIBBCTOBI ABD • 

* LIBRAE! BRTBX * 

* ADDBBSSBS • 
**************** * 



*****H3********** 

• OPDATB AVAIL- * 

• ABLB BLOCK • 

• COOBT ABD * 

• BBSBT DELETED * 

• BLKS TO 6 * 
***************** 



***J2*** ******* 



***************** 



**Bj5******* 



* DIBBCTOBI 

* BBCOBD IBTO 

* ^OOTPOT ABBA 

*****r"— 



# 




I 






**** 


X 




* 


.*. 




* F1 


K1 *. 




* 


•* *. 




•*** 


* CCB *. 


BO 




CHAIB 


*.-X. 




*. BBOKBB .* 






*. .* 






*. .* 


X 




* IBS 


***** 






*PG * 




. 


*, H3*PTRXHIT 




I ^ 


* * 





IS STS 


*. 


IBS 


DIBBCTOBI 




•.... 


. IB COBB 


.* 




*• .* 






*. .* 




JL 


• HO 




•*** 






* 






* F5 


X 




* 


*•** 




***• 




***** 
LOADXBX* JW-J 
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Chart FJ. ttAINTCN - End Routine. Initiate Load for next Condense. RPS Routine 
Refer to Chart 25 



SOT"" 






* 1E5TORE 

* PIRAHBTER 

* REGISTERS 



*85 



*B2 
PBBBBG2 CLBABBD 
BEFORE LOAD 
IS ISSOBD 



BBSTOBB 
PARABSTBR 
BB6ISTBBS 



****C2********* 

♦ SfC « * 
.1* LOAD * 

* HAIRTA * 
*************** 



•C3 
SIBCB PART OF 
IRITIALIZATIOfl 
ROOTIBB BAS 
OVERLAID. IT IS 
RECBSSABT TO 
RELOAD THE 
PHASE. 



*****C ft********** 
~ ~ STC 4 ♦ * 
LOAD • * 

BAIRTCB • • 
*C3 * * 



**•*& f»******** 

• 60 TO BOOT * 
•PBASB AT LABEL * 

• •XXTCHDS* * 
****•*••*****•• 



*****D4**« ******* 

* GET COBDBBSB * 

* CTRL SB FROH • 

* IBITABL ABD * 
♦STORE PARABBTER* 

* RE6ISTKKS * 
***************** 



***** 
*FD * 
* CI* 



**** 

* • 

* 62 * 

* * 
**** 



**** 

* * 

* 63 * 

* * 
**** 



•***6 ft******** 



*************** 



*****a i**** ****** 

• * 

• GET DBFICB • 

• RIB FBOB * 

• XRXTABLX * 

****** *********** 



X 
.*. 

J1 *. 



*****Q2*********« 

• CHARGE * 

• SET SECTOR * 
.X» CCH«S TO * 

• TIC'S * 



*****G 3********* * 
» • SfC 75 • * 

* * SECTOR * * 

• *CALC0LATIOB* * 
ROOTIBB 



• * 



* * 



**************** * 



*****B3********* * 



.* IB 

• DISASTER 
». BODE 



**J2******* 

* * 

SET BIT 

* * 
*********** 

lx....* 



*****K f»*** ****** 
• GBT BXCOBD * 



STOBE 

f ALOE IB 

BOCRBT 



****B2»*»****** 

* BBTOBB • 

* TO * 
CALLER 





J3 •- 








.♦SECTOR *. 




.* 


fALOB 


*. 


IBS 




IBFALID 




*-..- 


■* 


. X»FF» .* 






*. -* 








• BO 




.1.. 








* * 








* 62 * 




X 




• * 




**** 




•*** 




• * 








* H2 * 








* * 








**•* 







.L. 

• * 

* 63 * 
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Chart FK. HA INT CM - I/O and I/O Error Subroutines 
Refer to Chart 25 



•*«*A i********* 

* dibbdbtb * 



• • 

• DXBBTBTB • 

• * 
*************** 



•***. , 
DIBBDBTB f 

•****B ********** 

* SB OP OIK 

* sibc addb pob 

* ibpot 



•MMC I**** ****** 

• * 

• IBITIALIZB * 

• DIRECTOR! * 

• IBPOT POIBTBB * 

• * 
***************** 



IBTBTB Z 




SOBBCBSS .*. 


*****B2********** 




B« *. 


* * 


***** 3******* ** 


.** OCCOB *♦- BO 


* SBT DP DIB * 


* • 


* SBBK ADDB • 


* STSDZBVT * 


•• D0BZB6 LIB ...... 


* POB OUTPUT * 


* * 


•. BEAD .* 


* • 


*************** 


*. -• 


***************** 


i 


'•"IBS •**• 


*" 


• 


* • 
. * C5 • 






* • 


• Z. .......... 






(DIBIT Z 
*****C2********** 




i 

*****c*********** 


• PW BB1D CCff • 


• ••*<;.»* ******** 


• IBITIALIZB * 


•IBTO CHAIB UD * 


• * 


• CCB CBAIB * 


• IBITIALIZB * 

* DIBBCTOBI * 


* BZDIBIO • 


* POIBTBB * 


• * 


* ABD SAfB * 


•O0TPOT POIBTBB * 


*************** 


* ■ • 


***************** 


. 


- ***************** 



Dt ♦. 
■* ' *. 

BOC ♦. BO 

POSTED .*..-. X 

*K5 .* 
*. .-* 

*. .* 
• TBS 



•**<»*£ f********** 

* CA ISOLATE * 

* ADDBBSS OP * 

* LIST BZBCOTBD * 

* CCB * 

* * 
***************** 



PI *. 

.* *. 

TBS .♦ *. BO 

...*. RD COOBT .*... 

• *• .* 

*. .* 

Z *. .* 



.1.1. 



BZDIBIO _Z 

*****D2********** 

♦ IBITIALIZB * 
♦BBGISTEBS BUB * 

• CCB ADDBBSS * 

* ABD SBBK DISK * 

• ADDBBSS * 
***************** 



****D3********* 

* * 

* BZBCIO * 



* IBITIALIZB * 

* EBBOB * 

* COOBT * 

*.■■„• * 

***************** 



DOIO Z 

***P2***** ******* 
s?c o 

* BBAD/BBITE ♦ 
DIB/LIB 
* RECORDS • 

***************** 



****«8 t********** 

* * * * 

* * arc 7 * * 

* ♦ BAIT * *Z. 

* * * * 

* * * * 

***************** 



62 

.* 

COMPLETE 



***>»>»* *********** 



.♦ SBT ♦. TBS 

♦. SECTORS .♦... 
• »XB PLBCE .* 



***«t*g *********** 

* * 

* BBSTOBB * 

* SBT SECTOB * 

* CCB»S » 

* * 
***«<«** *********** 



X 

.*. 

H2 *. 

.♦BO-BCD *. 

BO .* POBBD BIT *. 

...*. POSTED IB .* 

*. CCB .* 



*. 



* • 

* P3 * 

* * 
**♦• 



**P3******* 



*********** 



Z 
**** 

* * 

* KB * 

* ♦ 



•*** 

* * 

* H3 • 



BOHPCCB Z 

** ***]>«*** ******* 



***************** 



I* *. 

.* DID •• 
.* SBARCB *. TBS 
CADSB .*.... 

*. ERROR .♦ 
*. .* 

♦ . -• 
* BO 



BOTE SBARCB 
• AREA 



.* PBBBIOOS •«, TBS 
♦. CCB CAOSB ••.... 

*. EBBOB .* 



•ftDDBDPDL PR* 

*-*-*_*-*..*_*.*._* 

* IBCBEBEBT * 

* TO BBZT SEEK • 

* ADDRESS * 

***************** 



* 65 *.X. 



GOTXT X 

*****C5********** 
•IBITIALIZB BS6 • 

* POB STSBBS/ • 
♦SISCLB/SXSSLB/ • 

* SI SB Lfe, BARB • 
•ADDS PBl BTABLB * 
**** ************* 



.* ABT *. TES 

*. DISK BRBOR .*.... 
*. POSTED .* 



• PBIBT BBSSA6B * 
•OB STSLST OSIfflC* 

*ER START RQOTIRE* 

• II ROOT PHASS • 
*fl« 



Z «BB 


.*. 


3H70A 


J3 *. 


IBBBCOfBRABLB DISK 


.* *. 


ERROR. TBB SBCOBD 


* BOC *. BO 


CO ID BB SB CABBOT 


POSTBD .* 


. COBTIBOB. 


*. * K5 .* 




♦ . .♦ 


**** 


*. .* 


* * 


* TBS 


• K« * 




* * 


. 


**** 



* STORE CCBHR * 

* OP BEAD DISK ♦ 

* ADDBBSS * 

* * 
***************** 



**K3******* 

* * 
* OPDATB ♦ 

* DISK ADDBBSS • 
♦POB DIBBCTOBI* 

♦ MPOT • 
*********** 



«*«VP5************ 
SBC 
♦ PBIBT TIB • 

RBSSA6B OB 
' STSL06 * 



* ***K «*** ****** 
♦ BBTOBB TO • 
. .X* CALLBB * 

* ******** ** **** 



•PL ♦ 
• B1* 

• * 



♦K5 
BOC CAB OBLT BB POSTBD 
IP A STBIB6 OP 16 
DIBBCTOBI BBCOBM BAS 



♦ B* * 

* * 
***• 



• B1 * 

* * 
**** 
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Chart FL. ttAINTCN - Destroy IPL Record 1 § Block Count and Disk Address Extraction, 
and Disk Address Insertion Subroutines 
Refer to Chart 25 



•***a4**« •*••»• 



PPBjBjl. SHU •• 



RESSA6E •• 10 
P KITED .*... 



•tai 



•****B2********** 

• • 

• OfBBLAT 1ST • 
I* MESSAGE * 

• BITS 2ND * 



***** 
*FK * 
* H5* 



ISSUE • 

PARTITION • 

map * 

• 
***************** 



*•**•■ J********** 

-S!iL- : 

TO ZEROS • 

***************** 



*****CJ********* ' 

• HOVE B10CI 

• COO IT PBOB 

• DIB INPUT 

• BBCOBD IBTO 

• -NBKABBA- 



IM S. 



nSs- 



ADB ***** B 5******+*** 

Oft DISE ADDS • 




** ***C4********** 



?BS NOl 

♦ -NBRA1 



ABEA- 



****C5*******»* 



.* IS *. TBS 


.♦PROCESSING *. TBS 


****D 3********* 

• BBTOBB TO * 

• CALLING • 

• BOOTIBB * 
*************** 


• ***D«********* 

♦ BBTVBB TO 

• CALLING 

*************** 


♦ .ASSIGNED .* 
*. .• 

*. .* 
• BO 

II. .......... 


*. .* 
*. .* 
• NO 






.. . 


D1 X 

**g ******** 

Till 01 CANCEL* 


X 
IPLDSTRY .*. 

B2 *. 
.* ». 
IBS .« IS *. 
.....*• IT PCIL .* 




•APTBB GITIEG * 

STATUS HBPOBTS 

*********** 


*. .* 

*. .* 

*. .* 





ENTERING FBOB SCBD1SC 



HE" 1 



****p i********* 

• 60 TO BOOT • 
•PHASE AT LABEL * 

* BBDJOB * 
*************** 



*****P2********** 



***************** 



*-•-*-*-*•.*-** 

* PROCBS * 

* BPS I/O * 

* * 

***************** 



SAST1 

***« 



**H2******»»** 
» * 

* BESTOBB * 

* ROUTING • 

* CODE * 

* * 
***************** 



*****j2********** 

* INITIALIZE * 

* CCN'S TO * 

* DESTROY IPL * 

* BECORD 1 * 

* * 
***************** 



***K2***** ******* 
S¥C 
* DESTROI * 
IPL 
RECORD * 



♦***K3********* 

* ENTER STSTBB * 
.X* INTO HARD * 

• BAIT • 
•**•*******•*** 
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Chart PM. MAINTCN - Update Subroutines 
Refer to Chart 25 



ADDROPDD 



ADD1VPDL * 




<* 



10 !••••• 




• nmii to 

***** ********** 



***************** 



• HAX •. 

TRACK *. fSS 
COURT ...... 

REACHED .♦ 



*****£2********** 

* • 

* ADD 1 tO * 

* TRACK COORT * 

* AHD StOSS * 

***************** 



•* ***C*****»***** 

• * 

* ADD 1 10 * 

: ™ib isa?' : 

*****•*•******•*• 



"■Wiicsa. 



* MSB 

- , v mis 



*********** 



*****23********** 

• ADD 1 tO * 

• CILIRDBR • 



****** *********** 



****DS********* 

: ■82M : 

****if $•*•*•***** 



****g2********* 

• RBTORH tO • 

• CALLIRG • 



Jk, 
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Chart MA. ttAINTA - Process Control Card, Store Allocation Information 
Refer to Chart 40 



(Part 1 of 2) 



****a i»******** 

• * 

• HAIETA * 



'S*. 



•MAD BASE BEGS * 

• ABD POIBT TO * 

• -IEITABLE- IB • 

• BOO* PHASE • 

• * 
***************** 



*****C *********** 

• • 

• RELOCATE * 

• ADDRESSES IB * 

• CCH'S ABD * 

• OCB»S * 



****•& •)»*• ******* 



*••• 



*****A 3»»*M<*» •* • 
♦UPDATE POIBTBB • 

* PAST ID ABD * 

* SET ADDB FOB * 

* STOBIK • 

* ALLOCATIOB * 
**************** * 



*****B3********* • 

* SET HAXXHOB * 

• COUBT FOB * 



OPD1 X 

•****C3********* * 
•UPDATE HB* 

*-*-.*-*-.*-*-*-*- * 
•OPDATE POIBTBB • 

• TO BEIT • 

* CHABACTBR * 
****** ********** * 



?2 X 

•••••A****** 1 

• LOAD ADDB OP 

: STlifl 

• EXIT ADDBBSS 



* B* *.X. 

* • . 
**** . 

HOT X 

** ***BH*** ******* 

* SHIFT DOCKET * 
•CHARS 1 TO LEFT* 

* ABD BOTE EBB * 

* CBABACTEB * 

* IITO DOCKET * 
***•***•******•*• 



** ***c«*** ******* 

• * 

• BACK OP • 
•BOCKBT POIBTBB • 

• 1 POSITIOB * 

***************** 



CXL X 

*****A5*$***i 



*****B5*«******** 

• COB? BET ALLOC * 

• TO BIBABX • 
**•***•********•• 



****«C5********** 

• SET BAX CHAB * 

• BOTE COOBT * 

• ABD BESET * 
•BOCKBT POIBTBB * 
•FOB ALLOC IBFO * 



****•£ i** ******** 

• POIBT BEGS TO • 
•CTRL CABD ABBA,* 

• BID OP CABD. * 
•ABD STSIPT DTP * 

TABLE 



*****p i********** 

• * 

• POIBT RB62 TO * 

• CABD COLOHB * 
•FOB IDENTIFIES * 



TBS ••ALLOCATIOH • . 
...*. AIBBADT .•!. 
• .SPECIFIED.* 



**K?®9*«*** 



•HB • 
• B2* 

* * 



TOBB OB 
BIT 1 IB 
•S BITCH" « 
* * 

*********** 







.♦. 




X 




0PD2 X 






D3 •. 




*****D4*** ******* 




*****]>5********** 
•OPDATE BB* 

*-*-.*-*-*—*—*—*-.* 






.* IS *. 




*TST10B BB* 








-• CBABACTEB •. TBS 


*-*-*-*-*-*-*-*-.* 








•.A LEFT PABBB .*-.. 


. 


* TEST FOB * 




•OPDATE POIBTBB * 






*. .* 




* ROHBRIC DISK • 

• ADDRESS BOTBD • 




* TO BBXT * 






• . .* 






* CHABACTBB • 






*. .* 


X 


******•*•**•****• 




**** ************ * 






*. HO *♦** 












* 


• 












• 


A5 • 


. 




. 






* 


• 












. ••** 












X 








X 






.*. 








.*. 






K3 •. 




X 




B5 *. 






.• ♦. 




****E4*** ****** 




.* IS *. 






.* HAX •. BO 




* RETORB VIA * 


TBS .• CHAB A •• 






*. CHAB BOTE ...... 


* BEG 13 * 




.*. BIGHT PABBB .* 






•.EXCEEDED .* 




* * 




*. -* 






*. .* 




*************** 




*. .* 






*.' .♦ 


X 




X 


*. .* 






* TES •*** 




***** * BO 






* 


* 




*HB 


• 






. * 


A* • 




* B1* 






X • 


* 




* • 








***** **•* 




* 








•HB • 






TBCKS X 






* B2* 








.♦. 






* * 








F5. *. 






* 








-* *• 






SXBEBB 1 






TBS •• HAX •• 














.*. CBAB HOPED .• 












•* 


*. EXCEEDED .* 
*• •* 












X 


*. .* 












***** * HO 










STBBBB1 


• 












• C2» 












• • 








BBBIBD 




* 






X 


* 


TXPBL 


.*. 


CLSWT .*. 






HOT1 X 




62 •. 


G3 *. 




**G ******** 




*****S5********** 




-• •. 


.•HAS CI •. 




•SET SB FOB • 




• LOAD ADDB OF • 


.* 


IS ID ♦. TES 


.•ALLOCATIOB •. BO 




* COBE IBAGB • 
X* ALLOCATIOB •. 




• LABEL ODD* * 


..!•. 


-CL=- .* 


...X*. ALREADY .*... 






* IBTO BEG 13 • 


* 


.* 


••SPECIFIED.* 




* -SHITCH- * 
* BIT 1 » 1 • 






• • 




•- • • 


*. .* 








***************** 




•. -• 


*. .* 




*********** 






• 


• BO 


* IBS 










m 


• * 




**** 












•HB * 




. *HH *STHEBB2 










• E3« 




..X* C2 • 










X 


***** 


X 
.•. 


* • 
*•** 
BLSBT .*. 










**** 

• • 

• B« • 




H2 *. 


H3 •. 




•*H«******* 






* ' • 




.* •. 


.•HAS BL •. 




•SET SH FOB • 






**** 


.* 


IS ID •. XLS 


.•ALLOCATIOB *. BO 




• RELOCATABLE • 








• . 


-RL=- •••••.. 


...X*. ALBEADT «•..« 




I* ALLOCATIOB •• 
* -SBITCB- • 


.x' 






• 


•.SPECIFIED.* 








•. .* 


*. .* 




• BIT 6 * 1 * 






***** 




*. •• 


». .* 




*********** 






•HC * 




* BO 


* TES 










• Bl* 






. **** 










* • 




. 


. *HB *STBBBB2 








• 






..X* B2 * 
















* * 














X 


•*** 














J2 •. 


.*. 
J3 *. 




**JH******» 




BBTEBBO X 

*****j5********** 




.* •. 


.•HAS SS •• 




♦SET SB FOB * 






* * 


TBS .* 


IS ID *. 


••ALLOCATIOH *. HO 




*SOORCB STRBT * 






*BBSSAGB B 3B15* • 


....•••.*• 


•PL=« • • 

.• 


...X*. ALBEADT ••••< 




X* ALLOCATIOB ». 

• -SHITCH- • 

• BIT 5 * 1 • 

*********** 


a' 




• 


•.SPECIFIED.* 








*. .• 


*. .* 








* • 




*. ••' 


*. .* 




*!** 






• HO 


* TES 










. **** 






* • 






. 


• *HH *STHBBB2 




• A3 • 








—X* B2 * 






* * 








* * 






•**• 






X 


***• 












K2 *. 






*****K **** ******* 




*****g;5********** 


.• 


.♦ •. 

IS ID •■• TES . 


****K3********* 
• SVC 6 • 




* • 

• GO TO CABCBL * 




: s s.SiB s 8 M : 


*. 


•SL»« .• 


• CABCBL *X.. 




.* tOOTIBB IB •! 
• ROOT PHASE • 




.* BOOT PHASE TO • 


• 


* * 






• PBXBT HBSSAGB • 




*. .'* 


*************** 




* * 




* ■ • 




• . .• 






***************** 




***************** 




• BO 














ISYNEBBI 

X 
***** 


























•HB * 














♦ B2* 














• • 
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Chart MB.. MAINTA - Store Allocation Information (Part 2 of 2) 
Refer to Chart 40 



tc 8* 



********* 



ct •. 

.• IS • . 

CItti A *. 10 
COBB A .*... 

.DELIHITRB.* 
*- .• 

•. .♦ 

* tbs 



**D i******* 

• SET SB FOR * 

• BOBB • 
. OPBRABDS 

• -SWITCH- * 

• BIT H » 1 * 



***** 
•HA • 
• F5* 



CHAR A *. 
BLABR 
.DBLIHITBR.* 
*. .* 



.* ALL ♦. 
•• LIBRARIES *. 10 
•.SPECIFIED IB .*..] 

♦ . CARD .♦ 



BO .♦ IS CBAB 
...*. BBTBBBB 
• . ABD 9 • 
•. .* 



****C3********* 

• BBTDBB • 

• TIA BBC 12 * 

• * 
*************** 





I 






Ifl 


T ••• 








B« *. 








.• ART •. 






*l 


BBTBBBB 


. BO 




*. PABBBS •• 








• . .* 








*. .* 




X 




• TBS 




•*•* 








• • 








• Bl • 








• • 




. 




•#*• 




X 






*» ***C»**» »• »* ♦»* 




* 


PACK DBCIBAL 


* 




* 


BVBBBBS ABD 
COETBBT TO 


• 




* 


* 




* 


BIBABI 


♦ 





TBTB 

***« 



****B 1********** 

* LOAD ADDB OF • 

* -CXAL*2 FOB * 

• STOBIB6 TBACK * 

• ALLOCATIOB • 



•COBfBRT TBACRS * 

• TO RIBART * 

• ABD STORB * 
■*-"■"- -*^**» ****** 



X 

•• *. 

.* BOBB *• 

• OPBRABDS 
•TO PROCESS.* 



X 
***** 
•HE • 
• B2» 

* * 
* 
STRBRR1 



D* •. 
.♦ IS •. 
• ALLOC 

FOR COBB 
*. # IBACB ^.' 

**. .** 
• IBS 



t FOIBTBB 

....X* BBS 5, TO 
X * BBXT LIBRARY 



B2 •. *****s3********** 

.* •. •OPDATB BB* 

.•OPBRAHD OH *. BO *_*-*-*-*-.*-*-.*-.* 

•.COHTIMOATIOB .» X*tfPDATB TO IEXT • 

♦. CARD .* • CHARACTER • 



.♦ 



**F2******* 

* * 

• INDICATE 

• COMTINDATIOX 

• CARD READ 

* * 
*********** 



*****G2********** 

• 60 TO LABEL • 
•CSSTART IH ROOT* 

• PHASE TO READ * 

* HBXT CARD • 

* * 
***************** 



****** ********** * 



X 


„ 


X 


.♦. 




.*. 


E4 •. 




B5 *. 


' MAS •. 




.• IS *. 


ALLOC •. IBS 




«* ALLOC FOB •• BO 


ALBEADX «•«... 




•* RBLOCATABLB .*... 


HADX .* 




• • .* 


»• -• 




*• .* 



HVALDC X 

*****P4*** ******* 

• STOBB • 

• ALLOCATIOB • 

• IB PROPER • 

• AREA • 



****<; 3* ******** 

* * 

* UPDATE • 

* * 
*************** 



** ***6 H***** ***** 



***************** 



.*. 


X 


UPDATE X 




Ht •. 

.* BOBB *. 


**H2******* 


***** e 3********* * 


****B4********* 


* * 


* * 


.* TBAM 1 *. YES 


* RESET * 


* UPDATE IIPOT * 


* BBTOBB TO 


•.TRACK ALLOC*-.*.... 
•.TED TO .* 


* COHTIHOATIOM * 


* POJBTER 1 * 


* CALLIBG ' 


♦ CARD READ * 


* POSITIOH * 


• SEQOEBCX < 

****«**#******* 


•• CID .* 


* * 


* * 


*. .* X 


*********** 


***************** 




* BO ***** 




* 




*HC * 


# 






* AT* 








* * 


X 






* 


***** 








*HA * 


X 




X G00R1 


* El* 


»*. 




*****j i********** 


* * 


J3 *. 




* * 


■*■■' 


•*■ *. 




• LOAD ADDRESS • 


PBOCRDO 


.* IS COL *. BO 




• OF BS66 IB * 




*. LT 72 QB .*.... 

*. COL 72 .* 




* HSG * 







F5 *. 

.* HAS *. 
BO .♦ ALLOC 
!....•. ALBBABX 

• . BADB .' 
*. .♦ 
• . .• 
• TBS 



SLIB X 

*****65********** 

• 0PBATB • 

• POIBTBB • 

• BB65 TO • 

• FOIBT TO • 

• BBXT LIBBABX * 



.♦ IS *. BO 
•• ALLOCATIOB .*.., 
•. FOB SSL «• 



X 
***** 
•HB • 
* C2* 



• BBS •• 

ALLOCATIOB .* 
•» ALBBABX •• 
••BADB .• 

**'lBS 

It. ..... « 



****K3********* 

* RBTORB TO * 

* CALLIB6 * 



l K *****B5*i****)»*«* 

• VFBATB . • 

• POIBTBB BSCS • 
.»..• TO POIBT TO • 

• F10CBDBBB • 

•*» « ** Ilflt I*****® 
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Chart MIC. 



BAINTA - JRead System 
Refer to Chart 40 



Directory Records and Update ALLOC (Part 1 of 



2) 



• 15 * 



°1L. 



• * I0AD • * 

: : mmm : : 

* * * * 



•****A2********** 
•SATE OLD UBL * 
•CIL BOBBSB UD * 



* TXOI BBCOBDS * 
***************** 



TBACKS IB 



I 
.*. 

SOQBCB ; 

•.DIBBCTOBI.* 

• TBS 



B1 *. 


*****B 2** ****** * * 


• •• 


* BOTB COBB * 


sbaihdir *. BO 


* IRA6B DISK • 


IB STA .*.... 


* 1DDH. TO DISK * 


.* 


• ADDB. FOB * 


•. .* 


* BB1D * 
***************** 


*. .* Z 


* TBS ***** 




*HA * 




* J5* 


. 



* CALCULATE 
•STABTII6 ADDB. 

• OP CIL ABO 

• STOBB IT IB 

* -BUPFBB^F 



***************** 



*****C f********** 

* * 

* SB? B BBTBT * 

* POIBT OF * 

* SHAIHDIB IB • 

* -EH THIS AT- * 



*****0 I********** 



* FOB BBCOBD . 

* ABD IBPOT 

* ABBA POIBTBB 
*************** 



*****C2********** 

* IBITIALIZB * 

* CCI TO BBAD * 

* COBB IBAGB • 
•DESCRIPTOR KB- * 
♦TBI IHTO-BDFPR~* 
***************** 



***D2***** ******* 
BBAD COBB 
* IBA6E * 

DBSCBIPTOB 
* BBTBT IHTO * 
BOFFBB 
***************** 



I 




. 


.*. 




X 


c* • . 




***C5 •*****•***< 


.* IS *. 






.* TBBBB A *. BO 


* STC < 


*. BBLOCATABLB .*. 




BBAD SS 


*.DIBBCTOBT.* 




* DIBBCTOBT * 


*. BOH .* 




BBCOBD 


*. .* 


X 


*•«***•*•******** 


* IBS 


**** 




" 


* * 






* K« * 


. 




• * 




• 


**** 


• 


BDSTS 1 X 




X 


*****D**** ******* 




*****D5********** 


* BOTE BL DISK * 




* BOTB SS DIB * 


* ADDB FBOB * 




• BBCOBD BOTO * 


* SATB ABBA TO * 




* ABBA FOB SIS * 

* DIB BBCOBDS. * 

* -BOFFBB ♦ 160 * 
**** ************* 


• DISK ADDB FOB * 




* BBAD * 




***************** 





**•**£ ***** ****** 

* * 
*XHITIALI3B BBS** 
•FOB 4 BBAD PAS-* 
•BBS FOR SISTER * 

* DO BBCOBDS * 
*+*************** 



*• **p f»*** ***** 
» POT BBCOBD 
•BRIBER IB DISK 
*ADDR ARD IBPOT 

* AREA ADDR 

• IRTO READ CCR 
******— "^"~^ 



• **G 1***********« 

* STC BBAD * 

A STSTEB 

* DIBBCTOBT * 

BBCOBD 

******* ********** 



B2 *. 

.* 1 OB *. 

.•BORE SPACE *. 

. TBACRS FOB . 

*- LIBK .* 

♦DIRECT.* 

*. .* 

* IBS 



*****g>2********** 
•BBFOBBAT DESCB.* 
*E»TRT TO FORMAT* 



*****G2********** 

* * 

* CALCULATE * 

* ADDBBSS OF * 
♦BEIT ATAILABLE * 

* EBTRT IB CID * 
***************** 



*****E%*** ******* 

•IBITIALIZE CCR * 

* TO BBAD BL • 

* DIBECTOBI • 

* BBCOBD IHTO * 
-BDFFB1- 



*****P3********** 

* * 

* LOAD MESSAGE * 

* BOBBBB IH * 

* -BSG- * 

* * 
**************** * 



STC 

BBAD BL 

DIBBCTOBT 

BBCOBD 



**B5******* 

* SBT SB TO * 

*IBDICATB BAD « 

*SBCB STBBT LIB * 

* PBBTIOOSLT ♦ 

- R3 



*. 



** ***Ql| ********** 

* BOfB BL DIB • 

* BBCOBD IBTO * 

* ABBA FOB STS * 

* DIB BBCOBDS, * 

* -BOFFBB ♦BO- * 
** *************** 



X 

• *. 

ABZ *. TBS 

ACTITE +*.... 

-. BHTBIBS .* 

*• .* • 

*. -* X 

* go ***** 

**** . *BD * 

* * . * A3* 

* 65 *.X. * * 

* • . * 
**** . MUSIS* 

RDSIS5 X 

**G5******* 



*****g2********** 



**H%******* 

* SBT SH TO * 

*IBDICATB BAD * 

♦ BL LIB 

* PBBTIOOSLT * 

' * K3 



**** . 

BBXTA I 

*****ttS********** 

* * 
•IBITIAUSB BBCS* 

* FOB ALLOC • 

• IBFOBBATIOB • 

• OPDATB 



BO 

i 



*****j2********** 

* * 

* STOBB BUBBBR * 

* OF LIBBABT * 
♦BLOCKS OSED IH * 

* -BDFFEB+52- * 
***************** 



ABT 

ACTIVE 
EBTBIBS 



* K* *.X. 



**.\TBS 



J. 



STS DIB *• TBS 


* 


STOBB HOBBBB * 


BIT 


1 


s?r : 


* 


OF LIB SARI * 


BIT 


2 


• 


CTLIBDBBS IH * 








* 


-BUFFER +6 6- * 


BIT 


3 


•• .♦* x 


***************** 






• HO ***• 






BIT 


« 


* * 






BIT 


5 


i i": 












I 






*••• •*** 




**** 






• • 




* * 






• Ft ♦ 




* 14 * 






* • 




* * 






••«* 




**** 







* . 
**** 
BDSIS* X 
» £ • 00 • - BOTE POLL TBACRS. **R ******** 
1 - BAD BL LIB PBBTIOOSLT. *SET SH FOR * 
1 - BAD SS LIB PBBTIOOSLT. * HO ACTITB * 
1 - HO ACTITB EH TRIES IH * EBTBIBS IH • 

PREVIOUS RL LIB. * PRETIOOS RL * 
1 - HO ACTITB BHTBIBS IH * DIB * K3 * 

PRETIOOS SS LIB. *********** 

1 - HAD PL LIB PBBTIOOSLT. 
1 - HO ACTITE EHTBIES IH 

PREVIOUS PL LIB. .X. 



• TO BBH HO. 



• DIB BBCOBD 



.* IS THIS *. BO 
.LIB BBIB6 BE-.*.... 
*. ALLOCATED.* 

"*. .*" X 

* TBS ***** 

*H» * 

BBXTAI D** 

X 



*BD * 

• A1* 

• * 
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vr 



vr 




■0STS6 .*. 

A3 *. 

•• IS * 
•• TBRBB A 
*. RROC DIB 



A 



in *. vis 



: ■"%»*•>* 






m*mb |********** 

• * 

• CORP 0TB TOTAL * 

• TRACKS FOR • 

• DIRECTORY ARD • 

• LIBRABT * 

*** *** ***** ****** 



16 .♦* TRACKS **. 



"Hsfsi. 



*****B J********* * 

•DBSCRIPTIOB ARD* 

• BOTB. PL DISK * 

* ADDB..TO DISK * 
*ADDB. FOR BBAD * 

****** ********** * 



*****C 3********* * 



****** ********** * 



•■•• ':JS.<&> % 

* ACTIVE * 

• BRTRIRS IR • 

• Ml? PL 8 * 

——,***** 



*HC * 
%B |* 



J>D CTLS 
• POR WIS LIB- < 
• •I* DJDt PAIR TO ' 
. * VRBflOUS 

**•**<— 



• HAS " 

ALL06ATI0R 
*. .' 




*****&. 3********* * 
* 
STOBB COSBARD * 
JODB ARD BE CO ID* 
•LBHGTH IH BBAD * 
* CCB * 
***************** 



♦cod! 



• ALL » STS *• RO 
DIB RECORDS .*.... 

• •^OPDBTBD^.* 

**. .** i 

• TBS ***** 

*BC • 
. * J5* 

• • * 



***13********* *** 

• STC * 
BBAD PL DIB 
• RECORD INTO * 
BOFPBBP 
***************** 



.* STOBB RBI ♦. 



*****P3********* * 

* * 

* HOFB BO BTTB * 



**************** * 



*****G 1**** ****** 

• IRITIALIZB ♦. 

• ADSRBSSBS TO * 
•BB6IB BOILD OP * 

• RBALIOCATIOH • 

• TABLES 
a********— 



•*G3******* 

• SBT SB * 

• TO IBDICATB * 

• *HAD * 

■• PL ♦ 

•PBBFIOOSLI** 

*********** 



I 
***** 
*HB * 

vr 



i 

*•** 
* * 

■• A4 * 
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vr 



a... 



•****A 2********** 

• CALC BBI 

* STMT AID 

: m 

****•*•*****« 



•****B2********** 
•BOTE CALCULATED* 

• ADDBBSSES TO • 
♦SIS DIB BCD ABD* 

• BBALLOCATB * 

• TABLE • 
***************** 



•"8^..^., 



if&K 



STSTBB DIB 



**************** * 



X 








X 


.*. 






.*. 


C2 


*. 






C3 •. 


.• 


». 






.* ALL *. 
.♦ .FOOB •. 1 


BBDIBG 


• 


. TBS 


CTL 6T 


BAX 






•.BB ALLOCATIOB .*. 


». 




* 




*. TABLES „• 


«. 


.*" 






*.B0ILT.* 


*. 


,* 




X 


*. .• 


♦ 


■0 




***** 


• TBS 








♦Hi * 










• B3» 




• 






* • 


• 


















XTIBBB 




X 
>**D2**< 


»***« 


* 


>* 


X 
*****03********* * 
• INITIALIZE • 








* 



• INCBBBBBT 

• ADDBBSSES FOB * 

• IBXT TABLE * 

***************** 



•STJ 

***> 



.* CALC *. BO 
• . FOB ALL 4 ••... 
*. TABLES .* 



*****p2********** 

• INITIALIZE • 

• TO BEGIBBIW * 

• OP BBALLOCATB • 

• TABLBS * 

****** 



X. 

, X 

B3 *• 
.* LIB *. 
.* AID DIB *. TBS 
. ALLOCATION .*.... 
*. EQUAL .* 
• • -* 
*. .* 
* BO 



IBTL2 .*. 

F3 *. 
.• •. 

TBS .* DIB *. 
.*. ALLOCATION .* 
*. BQDAL .* 



.•DIB] 



.* DIBBCTOBX ♦ . 
I*. ALLOCATIOB • 
*. BQ -* 



.X. 

X 



_ 6T EXISTING _ 

•.DIBBCTOBX.* 

♦. .• 



*HB * 
* B3* 

• * 



.•ALLOCATIOB •• BO 
*. 6T BXISTXBG .*..] 
*. LIBBABT •• 



• IBS 

I 

**** 

* • 

• A2 • 
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Chart MF. MAINTA - Compute Displacement for Directory and Library novate nt 
Refer to Chart 40 



• B3 *.X. 



.A 

«!tBACK ALLOC. ^N... 



*****C3*****«* ** * 

• XEiO BBTIBB * 

* REALLOCATION * 
♦TABLE FOR THIS * 

♦ DIBBCTOBI ♦ 

***************** 



.."» ■••.. 

.* BOBBBB OP *. XI 
♦. T BACKS OSBD .*. 
*. BQOAL .* 

*. .* 
*. •• 
♦ BO 



X 
.*. 

B3 *. 
.♦COMPARE*. 
LOW .* OLD STBTG *. BQOAL 
...... ADDBBSS TO .*........ X. 

*.BBI STBTG** 
♦.ADDB .* 

♦. .♦ 
* HIGH 



DSPL2 ' X 

«****P2********** 

• SET UPDATE ♦ •• 

* CODE IB TABLE * 

* TO X»02« ♦ 

♦ * 
***************** 



*****G2**^******* 



*****P3********* * 

* * 

* SBT UPDATE 



****** ********** * 



*****6 3» ********* 



• IBCBEBBHT • 
•AODBBSS TO IBIT* 

• HALF-TABLB * 

• * 
***************** 



♦J1 

ADDBBSSBS IB BBOCK 
ABD BBOCK 1 DBTERBIBB 
THE DIBECTIOH IB WHICH 
THE DIBBCTOBI OB LIBRARY 
IS TO BE HOT ED. 



* MOTE OLD * 


* HOVE OLD * 


.* 8 *. BO 


• STAR TUG A DDR * 

• TO BBOCK 1 * 


* STAHTIIG ADDB * 

♦ TO BBOCK * 


♦. PASSBS .*.... 


♦ . .♦ 


* *J1 * 


♦ *J1 * 


♦. .♦ 


***************** 


***************** 


*. .♦ X 
* MS *♦♦• 

• • 

: : » : 


i 

*****H2********** 


X 

*****S3* ********* 


*****B«*«* ******* 


* • 


• * 


• INITIALIZE * 

♦ ADDBBSSBS TO • 
♦OPDATE BBCOBDS ♦ 

♦ 1-4 OP STSTBH ♦ 

• DIBBCTOBI * 
** *************** 


• HOIE HEW * 


• HOfB BBB * 


* STAHTIIG ADDB ♦ 


♦ STABTIBG ADDB * 


• TO N BOCK * 


* TO BBOCK 1 * 


* *J1 * 


* *J1 * 


***************** 


***************** 
............ .ll 




DSPL3 X 

*****j 3* ******** * 


*****J4********** 
•SBT BBDIBG LIB • 




* COBPOTB TBB * 




• BOHBBB OP • 

* TRACKS IB THE * 


♦ABD DIB RECORD • 




* ABD BBTBI IB • 




♦DIB OR LIBRAE I • 


• STSTBB * 




♦ TO BE HOT ED ♦ 
**************** * 


****Si$S8SJI***t 




" 


♦*** * 




. 


♦H6 ♦ 




I 


• B2 ♦•!- 




•*•• 


• ♦ . 




* * 


•*** 




' . • PI * 


OPSTSB X 




* ♦ 


*****K4********** 
• CBABGE • 




**** 






• DIBBCTOBI ABD • 






• UBBABI STABT * 






• BBCOBD * 






• BOHBSBS TO 1 • 



*HG ♦ 

VI* 
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Chart MG. WAINT& - Update System Directory Records 1, 2, and 3 
Refer to Chart 40 



*** 



'am i 



12 *.^ 

.**DXHBCTOHY*». 
•BEEB ALLOCATED.' 



EXTEBTS POl 

SYSBES 

OPDATIBG 
THB fTOC. 



its rvi 
S IBTO 

8?" 



•*A5*$*«*** 
• BESET MP • 

• FOl CLOSBD- • 

' OUTPUT AID • 

• in VOLUBE • 
•IBDIC •BB • 



*****B2********** 

* CLEAR STSTBH * 

* DIBBCTOBI BCD • 

* TO ZEROS AND • 

* SBT IOT ALIO- * 
♦CITE INDICATOR * 
***************** 



DPSIS1 X 

•* ***g 3********* v 
•COHPUTB BLOCKS * 
* ALLOC. HOVB * 
•ACTIVE fiLK AID • 
•AVAILABLE BLKS • 
•TO SIS DIB BCD • 
***************** 



•B% 
IJSISBS*21 - BITS 5, 6 
IJSTSBS+38 « X*08* 



B $••••*•••*• 



• SATE JBCSN1, • 
•DISPLACBBBBT 57* 

• IB COBB BE6B • 

• • 
***************** 



*****C2** •••••••* 

• CLEAR REALLO- • 

• CATION TABLE • 

• FOR DIRECT OBI • 

• ABD LIBRARY • 

• TO ZEROS * 
***************** 

**** z 

• * . 

• D2 *.X. 

• • . 
**** 

0PSTS3 I 

*****D 2* ********* 

• IRCRBBENT • 

• ADDRESS TO • 

• UPDATE BEIT * 

• STSTBH DIRBC- ♦ 

• TOBT BECOBD « 
***************** 



•• DIBBCTOBI •- IBS 
*. PBBflOOSLT .*.-.. 
•.ALLOCATED.* 



•*C5******* 

• SBC 13 • 
•TORE OB BIT «• 

• IB JBCSil TO • 
FBBVBBT ATTEB.« 

• IBTEBBOPT • 
*********** 



E2 


*. 




.♦STSTEH *. 




.* DIRECTORY *. 


BO 


'. RECORD 


1-4 . 


*. ... 


*. UPDATED .* 




*. 


.* 




*. . 


• ' 


X 


* 


YES 


***** 






*HF • 






* KH* 






* * 






* (A 


„ 




DPSYSB 


X 






♦*P2******* 




• SET SB TO * 




• IGBOBE 


YTOC * 




' FOB OPEH 


* 


•BOOTIBE 


*A*» * 





*****D3********* * 

* * 

* BEHOVE BOT • 

* ALLOCATED * 

* INDICATOR * 

* * 
***************** 



*****B3********* • 
•BOTE BEIT AVAIL* 

* DIBBCTOBI AND * 

* LIBBABY ENTBY * 
•ADDRESS TO SYS * 

* DIRECTORY BCD • 

***************** 



.*BOBBEB *. 
.* OF TBI CIS *. YES 
*. DSED BY DIB .*.... 

*. BQOAL .* 



•*•* 

* * 

* D2 • 

* * 
•*** 



*********** 



*****£ 2********** 



*****£ **** ******* 

• CO HP DTE NEXT • 

• AVAILABLE DIB • 

• ADDBBSS FOB • 

• SYSTBH DIB. • 

• BBCORD * 
***************** 



*****pj|********** 

• COBPOTE HEXT • 

• AVAILABLE • 
•LIBBABY ADDBBSS* 
•FOB SYS DIB BCD* 

• • 
***************** 



***************** 



* * 



* * 



OPBB 

* * IJSYSBS- * * 

* * fSBOPEBB * * 

* * $$BOPEB * * 
***************** 



**B2******* 

* * 
* RESET SB 

* FOB YTOC 
♦OPEN ROUTINE 

* * 
*********** 



• D2 • 

* * 
•**• 



ATTBfl. 

BOOTIBE 
ACTIYE 



YBS .* ABT 
...*. FOREGROUND 

*. ACTIVE - 



*H3 
HBSSAGE 3H80I 
-BEOBGAVIZATIOB 
IN PROGRESS. 



***** 


* BO 


•HB • 




• HI* 


.!.. 


* * 





CBTALLO 

STBTH X 

*****a5********** 

• • * • 

• • OPBB • • 

• * ISSYSBS • * 

• • USIHG • • 

• • SSBOPEB • • 
***************** 



.•ALLOCATION *. YBS 
♦.EXCEEDS OPPEB.*... 
*. EXTENT .* 



K2 ♦. 








♦SXSBES *. 








EXTEND 


*. 


NO 




THROUGH 




*..X 




BHOLE . 


* 






♦. CYL .* 








♦ . .♦ 




XXTNEBB 


♦ YES 




***** 






*HN * 






* E3* 


X 




* 


* 



**j5******* 

* * 

SVC 13 

TORH OB 

-JBCSW1- 

SHITCH 



***K4*** ********* 
SVC 
• PBIBT BEGIN • 

HBSSAGE X.. 
OH SYSLOG • 
* H3 



*****K5********** 

• DSPLY BBSSAGB • 

• »3H80I» USING • 
.•BBSTABT BTB IB • 

• BOOT PBASB • 

• *H3 • 
***************** 



**** 

* * 

* A5 * 

* * 

**** 
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Chart MH. HAINTA - Write Directory Records, Blank Cylinder 0, Tracks 5-9 
Hefer to Chart 40 



• it* 



**** 

* A3 * 



WRITE2 .. 

.♦COMPARE*. 

BO .* A DOR OP ♦. LO 

...*.WBB LABEL CIL.*... 

♦ . TO .* 

♦.^OLD^ 

***BI 



DOITBB X 

• ♦♦B I****** ****** 
BOVLAB HP 

*—*-*--•—*-.*—♦—*—♦- ' 
8 OWE LABBL CYL 
• 10 BBB DISK • 
ADDRESS 



**B2******* 

* SET SB TO * 

* HOVE STD * 
* LBLS LATER 

* -SWITCH- * 

* BIT 2 = 1* 
*********** 



*****C I********** 

* * 

* SBT BBB CID * 

* TO OB IG I HAL * 

* FORMAT ♦ 

mm* mm* *********** 



*****D i* ********* 

* * 

* HOVE BOH BBB * 

* OF DIB ECTOR Y * 

* TRACKS TO * 

* -HUHDIRTR- * 
***************** 



*****B I********** 

* * 

* H07B BOBBER * 

* OF LIBRARY * 

* CTLIBDERS TO * 

* -B OHLBCL- * 
***************** 



*** **p i********** 

* * 

* STORE BO .OF • 

* DIRECTORY * 
•BLOCKS AVAILA- 



****«6 I********** 

* * 

* STORE BO .OF * 
•LIBRARY BLOCKS * 

* AVAILABLE IB * 

* -BUHLA- * 
*** *** *********** 



*****g fit********* 

* IHlTIALlZB * 

* OCR'S TO * 

* WRITE REB * 

* DESCRIPTOR * 

* EBTRI * 
***************** 



***j t**** ******** 

* BRITE * 

BBB CID 
* DESCRIPTOR * 
BBTRY 
***************** 



*****K |********** 



**** 

* * 

* D2 * 

* * 
*•** 



**** 

* * 

* D2 * 

* * 
**** 



BRITE 1 X 

*****02********** 

* UPDATE ABD * 

* FORMAT SYSTEM * 
♦DIRECTORY RCD. * 

* 2. 3.ABD ft * 

* IB STORAGE * 
***************** 



*****X2** ******** 

* POT BBB STABT * 

* ADDRESSES OP * 

* LIB'S IB IBIT * 

* AMD STATUS * 

* TABLES * 
***************** 

**** I 



* IBCREBEMT 

* RECORD BOMBER 

* BI 1 
* 
**************** 



***G2************ 

* SVC * 
BRITE A 
* srs DIR * 
RECORD 
***************** 



WRITER .*. 


WHITE P .*. 


A3 *. 


Aft ♦. 


.* *. 


.♦IS THIS*. 


YES .* IS THIS ♦. 


.*A BBW PROC-* 


....*. A BBW BL .* 


♦. LXBB. 


*. DIB .* 


•.DIRECTORY.^ 
♦ . .♦ 


*. .* 


*. .* 


♦ . .♦ 



B3 ♦. - 

.♦ ♦. 
AWT ♦. 
ACTIVE 
. BBTRIES .♦ 
♦. -♦ 
*. .♦ 
* YES 



*****C3********* * 

* INITIALIZE TO * 

* WRITE FIRST * 

* RELOCATABLE ♦ 

* DI RECTOR! ♦ 

* RECORD • 
***************** 



***D 3********* *** 
SVC 
* BRITB FIRST * 
RL DIR 
* RECORD * 

***************** 



* 


ACTIVE 


♦ . 


BO . 






♦..K. 


*. 


BBTRIES 


.♦ 






*. .♦ 








♦. .♦ 
♦ YES 




***** 








*HJ * 




- 




vr 



** ***c4********** 

* INITIALIZE • 

* TO BRITB * 
♦FIRST PROCEDURE* 
•LIBRARI DIRECT.* 

* RECORD * 
***************** 



***0H***** ******* 

SVC 

* BRITE FIRST • 

PROCEDORB 

* LIBB. DIBBCT.* 

RECORD 

***************** 



DISK *. IBS 
ERROR .*.... 
.* 
.* 
*. .* X 
* MO ***** 


.* 
*. 

*. 


DISK *. 
ERROR 

.* 
*. .♦ 
*. .♦ 
* TBS 


BO 
*.... 

***** 


*HB * 
.1. * B1* 

* * 




X 




*HJ ♦ 
♦ Aft* 

* * 


* 




***** 




* 


X DSKBRR 




*HB • 
* BI* 

* • 




DIRUP 



IS THIS 

A HEW SS 

DIR 



.♦ ABT 
•CTIVE 
♦. BBTRIES 



* Aft * 

* • 
**** 



X 

***** 

♦MB * 

* B1* 

* * 

* ' 
DSKERR 



*****83********* * 

* IBITIALIZE TO ♦ 

* BRITB FIRST • 

* SOURCE STHBT * 

* DIRECTORY * 

* RECORD * 
***************** 



*****j 2** ******** 

* * 

* POINT TO * 

* BEXT SYSTEM * 

* DIR RECORD * 

* * 
***************** 



***j3********* •** 
SVC 
* BRITE FIRST * 
SS DIR 
* RECORD '* 
***************** 



FOUR *. YES 


.* 


DISK *. 


BO 


SISTER DIRS .*.... 


*. 


ERROR 


*.... 


. BRITTEN .» 


*, 


.* 




♦ . .♦ 




*. .♦ 




♦. .♦ X 




*. .♦ 


X 


♦ MO ♦*** 




* IBS 


***♦ 


* * 






* * 


'"... * A3 * 




I DSKBRR 


* Aft * 


X * * 




X 


* * 


**** **** 




***** 


*•** 


♦ * 




♦MB * 




* F2 * 




* BI* 




* * 




* * 




**** 




* 
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Chart MJ. MINT A - Update Library Directories 
Refer to Chart 40 



•*A3******* 

* TORE 01 • 

* -SNITCH-FOB * 

• riBST BL. SL. *!.. 

AND PL DIft. RB- 

•COBD BItJ-1* 

*********** 



• LOAD ADDRESS 
* OF CI 

* REALLOCATION 
TABLB 



*****A5********** 
•PBBFABB TO DFO • 
•PHASE BODOLB OB* 
•BOOK AOOBBSS IB* 



■0 •• LAST *. 

...*. BLOCK OP .* 

*. TRACK .* 



* IHCRBHEHT * 

* TRACK NOHBEB * 

* IK DISK * 

* ADDRESS * 

* * 
***************** 



*****D2********** 
•RESTORE RECORD * 

* NDBBER IB * 

* DISK ADDRESS * 

* TO 1 * 

* • 
***************** 



.*. 

C3 • . 

.•BOBBBR *. 

.OF DIHBCTOHI*. 

. EBTRIBS IB . 

♦.TABLE BQ .* 

♦ . .* 

*. .* 

* HO 



*****D3********** 

* SET DP DISK * 

* ADDRESS AHD * 
•CCH'S TO WRITE * 

* DIRECTOR I * 

* BLOCK * 
**************** * 



BS *. 
.• ML ♦ . 
.* DIRECTOR I •.IBS 
•. BBIB6 BUILT ••... 



*****C5**« ******* 

• COBfBBT • 

• DISK ADDBBSS • 

• FBOH CCB • 

• TO CCBH • 

• • 
***************** 



COBPOTE 

BBB 
ADDBBSS 



*****£ *********** 

• IBCBBBBBT * 

• BBCOBD BOBBER • 

• IB DISK • 

• ADDBBSS • 

• • 
***************** 



DIR0P2 X 

*****B3********* * 

* 6BT RUBBER • 

* OP BLOCKS • 
•PER TRACK FROB * 

* REALLOCATIOH • 

* TABLE • 
****** ********** * 



* 61 * 

* * 
•»** 



DIR0P3 X 

***P3********* *** 

S?C 
• READ * 

DIRECTOR I 
• BLOCK * 

***************** 



*****P5********** 

* • 

• BOFB BBB DISK • 



************* 



•. .♦ 

*. .* 
* BO 
***• . 

• * . 

* HI *-X. 

* * . 
*••* x 

B010 .*. 

B1 •. 
.* *. 

.* LAST ♦. RO 

• - DIRECTORY .•... 

• . UPDATED .* 



X 
***** 
*HK • 
* A1* 

* * 

BOFB 



.*• 




DIR0P7 X 


63 ♦. 


*****G4*** ******* 


*****G5********«* 


.♦ *. 


•LOAD BUHBER OF • 


♦ GET SIZE OF • 


TBS .* DISK *. BO 


•EHTRISS PER BLK* 


• BRTBI FROB • 


..X...*. ERROR •*..... 


...X* FROB TABLE • 


• TABLE, IBCB * 

• ADDBBSS TO • 


*. .* 


• LOAD B OFF EH • 


*. .* 


• ADDRESS * 


• RBXT BHTHT * 
***************** 


X *. .* 


** ******** ******* 


***** * 




* 


•MR • 


. 




* fl1* 

* * 


: 


I 



B4 *. 

.• 1ST *. 

.♦BL.SS^OB PL*. 

. DIRECTORY .• 

•. RECORD .* 



>■*■-. 

HO .* LAST 
...•• BBTRT IB 

*. BLOCK 





• J3 ».X. 




* * . 




**** x 




DIB0P4 .*. 


*****j2********** 


J3 •- 


* * 


.* * 


• IRCREHENT • 


.* LAST 


•ADDRESS TO HEXT* 


*. DIRECTOR! 


• REALLOCATION • 


*. BRTRT 


* TABLE * 


*. .* 


***************** 


*. .* 


. 


* IRS 










X 




**** 


. 



X 
*•** 

* * 

* J3 • 



*****J4*** ******* 

• SET POUTER • 

• PAST SrSTEH • 

• IHTO RECORD, • 

• IHITIALIZB • 
EHTRIES REG 



***J5************ 

src o 

* HBIT- 

OPDAT— 
• DIRECTOR 

BLOCK 
***************** 



ATBD 
CTOBY * 



DIR0P9 X 

***K3********** 

STC 
• HRITE LAST 
DIE ECTOR I 
* BLOCK BITH * 
• RECORD 
***************** 



m 


X 


X 


.*. 


**K4******* 


K5 • 


•SET OFF SB • 
• FOR 1ST RL * 


.* 


TBS .• DISK 


• OR SS DIE BCD • 


...•. ERROR 


* -SHITCH- • 


» *. 


* BIT 3 « * 
*********** 


*. 


X •. -• 




***** * fl< 




•HH • 




• B1*DSKBRR . 


X 
••** 


♦ *•*• 


• * 


* t 


• J3 • 


• B2 * 


* * 


* < 


••** 


**** 
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Chart MK. MAINTA - Relocate Libraries and Directories 
Refer to Chart 40 



KOFB I 

•*• Ml I********** 



*A2 
ISt PASS IS i PORIAID_ 

•BUS STIR! 



! A PORIAID 

RBALLOCAT 
TliG lid 
Ml IS 



IB TABLB. 
INDICATOR 
1ST PASS 



-^S%--» 



***************** 



• bi *a. 

• * . . 
•••• x 

?ii .*. 

B1 • . 
.• BOTE * 
.•TO LOBBR 

• . DISK ADDR, 

• .1ST PASS 



% «**«C !•♦»***••*♦ 

• GET OLD AID • 

• IBS STABTIB6 * 

• A DM ESS FBOfl • 

• TABLB • 



* D1 *Jt. 

* * . 
*••* 

BOTB2 X 

**• **d ft*** ****** 

• HOTB BLOCK • 

♦ BITS CIT • 

• PUDS 8 * 

• TO CCIS. • 

* * 
***************** 



**•* . 

ROTB3 I 

*****g -f********** 

* * 

* GET ROBBER * 

* OF BLOCKS * 

* PER TBACK • 

* * 
***************** 



• F1 *-X. 

• * . 

ROTB4 X 

***pt»*********** 

SfC 

• BEAD BLOCK * 

AT OLD 

• ABDR • 

***************** 







*••• 
• 




C2 •.X. 




• 




•••• X 
8 .•. 


C2 •. 


.• *. 


•• PASS 1 •.BO 


. IHDICATOR .*.... 


♦. OR .• 


*. .* 


♦ . .• X 


• TBS •*•• 


• 


• M * 


■ * 


. **** 


X 


.♦. 


D2 *. 


.• ♦. 


.• PASS 1 *. IBS 


. COHPLBTB .*.... 


*. PL LIB .* 


•. .♦ 


♦ . .* X 


n 


RO •**• 



•• PASS 2 

. COHPLBTB 
*• CI LIB 



*****C»*»* **»*#•* 

• DBCBBBBBT • 

• ADDR TO * 

• PBBCBDIBG • 

• ALLOCATIOI • 
TABLE • 



• BLKS TO SB 

• ROFBD, BBSBT 



X 
*•«* 

• <• 

* 62 • 



• IRCRBHEIT • 

• ADDR TO * 

• REIT DIB OR * 

• LIB TABLE * 

• * 
***************** 



**•♦ 

* * 

* BI * 

**** 



**** 

* • 

* F3 • 

* * 
**** 



RO .• LAST •. 

...*. BLOCK 01 

*. TRACK .* 



• D4 ».X. 

• • . 

HOVBIO X 

*****D«********** 

• * 

• SET PASS * 

• IBDICATOR • 

• TO PASS 2, • 

• *D5 • 
***************** 



. .* HOfB •. 

. .* TO HIGHER 
*. DISK ADDR, 
•.2MB PASS . 



•05 
2RD PASS IS A 
IB TERSE SCAB OF 



• COHPOTB OLD • 

• ADDRESS OF • 
•LAST TRACK *F5 * 
** *************** 



ADDR OF LAST 
TBACK*STARTIHG 
DISK ADDR ♦ 
TRACKS USED -1. 



• **H f**«* ******** 
SFC 
• BBITB BLOCK * 
AT EBB 
• ADDRESS • 

***************** 



• ROTE UPDATED • 

• BLOCK IOHBER ♦ 

• TO DISK ADDR * 

• * 
***************** 



**** 

* * 

* F1 * 

* * 
**** 



**** 
H0TB6 X 

*****6 3********* * 
•TKCORP HP» 



•DBTBRRIRE DISK • 
• ADDRESS FOR • 
•■EXT TRACK *J3 • 
***************** 



DISK 


•• 


TBS. 




ERROR 


.*" 


*..X 




>. -• 








•. .• 




X 


• RO 




***** 






♦HI • 






* BI* 






* # 


. 




* 


X 




DSKERR 


.*. 






K1 *. 






► * 






BORE 


• . IBS 


ACTIVE 




*.... 


BLKS 


.* 




". .* 






*. .* 




X 


* RO 




**** 






* * 






* f3 * 


X 




* *' 


**** 




** 


►•* 



*J3 
IICRBHBHTED 1 
TRACK OR PASS 1, 
DECRBHEITBD 1 
TRACK 01 PASS 2. 



• COHPOTB IEI • 

• ADDBBSS OF • 

• LAST TBACK • 
***************** 



LAST 

TBACK 

POLL 



B5 *. 
-• *. 

AST. *. Bi 
POLL .*. 
. TRACKS .• 
*. .• 
• • .* 
• TBS 



**j ****** •* 

* * 
• SET HOFB- • 

• POLL-TRACKS- v * 
•LATER SRITCB \ 

* * 
*********** 



** ***k %*** ******* 

• SATE RO.OF • 
•RECORDS OF POLL* 
•TRACKS TO BOTE • 

• LATER • 

• • 
***************** 



HOFB 12 X 

*****X5********** 

• LOAD RVBBBB • 

• OF RECORDS • 

• IR LAST • 

• TRACK * 

• • 
******** 



.X.X.. 

X 
***• 

• • 

• D1 • 

• * 
**** 
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Chart ML. MAINTA - Format Unused Tracks (Part 1 of 2) 
Refer to Chart 40 



* B«* 

* * 



•"H 



****b t**** ****** 

• * 

• SBBO STABTXRG * 
•ADDRESS OP BEL * 

• 1ID SSL * 
•4 tU)C MI TABLE • 



■O 



*****C |»»i 
•SBBO T792 BYTE: 
•PBOH «B0FPB1», 

* BOfB • TO 

* FIB ST BITB 

* OF >B0FF£B a 



K FBI 10 .». 

B2 *. 

.* WAS *. 

.* THERE A *. 

.. PBBYIOOS SS .• 

♦.DIRECTORY.* 

**• .*" 

* IBS 





i 






.*. 






B3 *. 






.♦ • 




• 


WOBKXEC 


♦. 




WITH 




* 


'•. CID .* 


„• 



♦. 



.♦ 

* 10 

x: 



•*Dt******* 

♦ SBT SWITCH * 

• TO ADD TO * 
• DISK ADDBBSS ' 

♦ •ASIBD* * 

• * X»00» * 
*********** 



** **g ?»*** ****** 

IBITIALIZB * 

BELOCATIOH ♦ 

TABLE POIWTBB * 



TRFBT11 X 

**D2******* 
•SBT SB ITCH * 

* TO POT IB * 
•BBH IBFO BECOBD* 

* •SDOSA+18* * 
* BIT - 1 * 

*********** 



TKFBT12 .*. 

B2 *. 
.* HAS *. 
BO -* THESE A *. 
..*. PREVIOUS PL - 
♦.DIRECTORY.* 



*. 



PI < 

.* BAS 

• THERE A *. MO 
PBEflOOS BL .*... 

• .DIRECTOR!.* 



• BO 

Ix... 



.TKPBT9 X 

**H ft****** 

• SET SWITCH * 

• TO POT IB * 
•BEW IBFO BECOBD 

* •RDOSA*18» * 

* BIT ■ 1 * 
*********** 



TKFHT13 X 

**G2******* 

♦SBT SWITCH * 

* TO POT IM * 
•IBS IBFO RECORD* 

* «PDOSA*18« * 
* BIT 0=1* 

*********** 

**** z 

*HH * .1 

* K3 *.X. 

* * - 
**** x 

TKPHT1 .*. 

H2 *. 
.*PORRAT *. 
,* THIS *. BO 
*. DIRECTORY .*... 
*. OB LIBR .* 



**C3******* 
SBT-COBXHSR-* 

* SBITCH TO * 
•IBITIALIZB CCH * 

* FOB * 
* CID * 

*********** 



*****D3********** 

* * 

* BOfB BEY ABD * 
♦IOHB8B OF BYTES* 

* TO I/O ABBA * 

* * 
**************** * 



*****E3********* * 

* * 
•POT -KBYLBB6TH-* 

* II COOBT * 

* FIELD * 

* * 
**************** * 



C* ♦. 
.• *. 

■OBKIBC > 

WITH COBB 

. HUGE .< 

•.LIBR .• 

*. .♦ 

• YES 



•*DI| ******* 
• SBT • 

* -CORIHS1- * 
TO CORE IHAGE 

• LIBR TO • 
•IBITIALIZB • 

*********** 



*****£%*****•***: 

CLEAR 
CODBT 
FIELD 

************** **! 



**C :>•****** 

• * 
SBT OFF 

-COR IAS B- 
SBITCH 

* * 
*********** 



*****D5********* 

CLEAR 

COOBT 

FIBLD 

****** ********* 



***** K 5********«* 

• • 

* BOTE ••• • 
« TO I/O ABBA • 



***************** 



.X.X. 

X 

.♦. 



• ROBKIBG •.10 

RITH PROC. .*.... 
•. LIBRARY .* 



.* ABY *. 
. BBTBIES IB . 
•.PROC. LIB.* 



***** 
*HB * 
• Al* 



X 
***** 
*HH * 
• B1* 



• R2 • 

• * 
**** 



**•* 

* * 

* B3 * 

* * 
**** 



***** 
*HM * 
* K2* 

* * 



*****B4********** 

* • 

* IIDICATE * 

* OIB TRACK • 

* TO BE • 

* FORBATTED * 
***************** 
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Chart MM. HA INT A -Format Unused Tracks 
Refer to Chart 40 



(Part 2 of 2) 



E^^ll 



• A2 • 

• * 
**•* 







X 






••• 






11 *. 






.• *. 




.* 


Iff *. 




*. 


OBDSSD .• 




* 


. TRACKS .♦ 
*. .• 




**** 




*HL 


.• 




• G« • .!. 




♦ 


* 




**** X 


TKPBT2 


.*. 






B1 •■. 






.• ♦ . 




.* 


IS THIS A *. MO 




X*. 


BBB .».. 




• 


.DIRECTOR!.* 






*. .* 


>** 


* 


*. .* 
* tBS 




♦ 




B1 


* 






* 


. 



*****C I********** 

* * 
*BOfB IB BL,SS. * 
•OH PL DIR. IBFO* 
•IP SS DIB, BO?B* 

• IB 1ST * 
***************** 



A2* *. 




***** A 3*i******* * 


•* *. 




* • 


.* DISK *. TBS 
•. ERROR .*.... 


• POXRT TO CXI. * 

• BEALLOCATXOB • 


*. .* 




• TABU * 


*. .* 




.*. ■- * 


*. .• 


X 


***************** 


• BO 


***** 






*BH * 






* B1* 






* * 






* 






DISKBBR 


X 


X 




.*. 


**B2******» 




B3 *. 


* SET OFF * 




■•*. *. 


* HEW DIRECT. * 




.* IS CIL TO *. 1 


»' SHITCH 


» 


*. BB BOTBD .* 


* TABLB+18 * 

* BIT » * 




*„ .* 




*. .* 


*********** 




*. .* 



*****A ft********** 

* • 

• STOBB • 

J IB STpHTABLB J 

00000000000000000 



**&5******* 

* svc 12 * 



% "WW 

• CTBL B! 



* SBAXBDIB 

• 10BK ABBA • 

000000+00+00*0000 



*****BS********** 



00000000000000000 



X 




.*« 


X 


C2 *. 


00000C 3000*00000 


*. 





IS IT *. TBS 


* LOAD TO HOfB 


CID OB .*.... 


•IBTO REGISTER 2 


CIL .♦ 


• 


.• 


* 


*. -• X 


000000 0000000000 


* HO **** 


. 



TKPHT7 X 

*****$ 1»*** ****** 

•TKCOBP HP* 

*-* -*_ 0-0-0 -0-0 -0 

•CALC0L1TB DISK * 

• A DDR TO BEG II * 

• PORHATTIBG * 
***************** 



*****g i********** 

* * 

* IBITIALIZB * 

* FOB FOBBAT * 

* BBITB * 

* * 
***************** 



*****D2** ******** 

* • 

* hove x'so* * 

* IBTO FIRST * 

* BITE * 

* • 
***************** 



.*. 

B2 • . 

.♦ *. 

.* RORKIHG • . 

. WITH PBGC. . 

*. LIBRABT .* 



D3 



♦ . 



* PRE- 

FOBBATTIMG 
••■ CID 
•. .* 



*****G 1**** ****** 

* * 

* IECBEASB DATA * 
•LBBGTH BT 8 IB • 

* COOBT FIELD • 

* * 
****** *********** 



.• 



••** 
TKFBT3A X 

*****p2********** 

* * 

* HOfB •*• ■*•• 

* IBTO FIRST * 

* BITE * 

* * 
***************** 



.• 

.CIL HOfBD TO». 
*. HIGHER 

*. ADDRESS .* 
• . -• 
*. .* 
* NO 



*****E3* ******** « 

* * 

* TAKB BBGATIfE * 



**************** * 



.X... 

X 

**** 

* * 

* KH ♦ 



0000 



*****C<»********** 


*****C5********** 


*,/,-: • 


* * : * * 


•LOAD ADDRESS • 


* • SfC 2 • • 


•OF STOiTABLB IB* 


• • FBTCH • • 


• BBGISTBB • 


• • SSBSISHB • • 

• • • G5 • * 


* * 


***************** 


*«*************** 


• 


•*** * 




•BB • 




* J1 *.X. 




• * - 




**** 


X 


LBAfB X 


** ***D4*** ****** * 


00DS0000000 


• * 


s?C 13 • 


* RESTORE BBTBY • 


• TOBB OB BIT • 


* POIBT OF • 


* TO IBDICATB • 
•BBBBILD • H5 • 
• TBABS DIB • 


• SBAIHDIB IB • 


• BBGISTBB 1 * 


***************** 


*********** 



•OPDATB TIB'S IB* 
•COBB IHAGB DI~ • 
•BBCTORf BBTRIBS* 
***************** 



****K5********* 

* SFC 1 • 

* FBTCB * 

* HAIBT * 

*************** 



*****62********** 

* • 

* ZBRO OOT • 

* REST OP * 

* BOFPER * 

* * 
***************** 



.*. 


.*. 


HI •. 


B2 •. 


.* •. 


.• ALL •. 


BORKIHG *. BO 


.* RECORDS *. BO 


BMB PROC. ...... 


*. THIS TRACK .« 


. L IBB AH I .* 


•.FOBHATTBD.* 


•. -• 


•-. -.-• 



*****J 1**** ****** 

• IBDICATB 5 • 

• BLOCKS TO BE * 

• POBBATTED. * 
•BRASB «»•• FROH * 

• POSITIOB 2 • 
***************** 

•*** * 

• • .X.. 

• ki *a- 



x 
.*. 

J2 ♦. 
.• LAST *. 
.* TRACK TO *. HO 
•. PORBAT TBJ5 .*... 

♦. LIB OR .* 
*. DIR .* 
*. .• 
• IBS 



*****B3********* * 

* * 
*IBCBBBBfiT BLOCK* 

X* BDBBBB IB *.. 

* DISK ADDBBSS * 

* * 
**************** * 



* UPDATE TRACK 
.X* BDBBBB FOB 

• DISK ADDRESS 



* G« *.X- 

* * . 
**** X 

LABBLH .*. 

G* •» 

.* HOfB •- 

.• STABDABD • 

•.LABEL TBACKS 

•. HOB -• 



***B4***«* **••**• 
BOfLAB BP 

$-0-0-0-0-0-0-0-0 

BBITB STD 
• LABELS IB * 

MSB ABBA 



TBIS XHSBBTS TBB 
BBB LABEL CTLIBDBB 
BOBBBB IB BG COBB. 
ABBA ABD BBTORHS. 



BXT 1. v 
TBB COBflOBXGA'__ 
IS ISBBBD OH TO 
THAT A FOB PGP 
HAS DBLBTBD. — 
OB CATALOGED 



57 IB 

WXD* 



JOB COBTBOL 

LIBKAGB BTTB 

IB SAfB 



***************** 2 •**• 

**•* . . ' 

• • 

• B1 • 



♦*•* 
TKPHT3 X 

***K 1************ 

* SfC • 

BBITB ABD 
• f B1IFI A * 

RECORD 

***************** 



.•PL DIRECT. ••Hi 
*. TABLE .•. 

*. DOBS .* 
*. .♦ 



00000K 3000000000 

• IMCBBHBBT * 
*TO BEXT DIBBCT.* 

.X* OB LIBRARY *.. 

• RBALLOCATXOH • 

• TABL • 
***************** 



•*£$*«***** 

• SfC 13 • 
TOBB OB * 

PBOPBB BITS 
IB LIBKAGB • 

• CTRL BTTB • 
^-~""^***** 
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Chart WN. BAINTA - Error Routines 
Refer to Chart 40 




*****£ I**** ****** 

• POINT TO BSG ♦ 
♦-0NBBCOVBRABLB « 

♦ DISK EBBOfi. * 
♦BE BOX ID PACK.- * 

* 3B70A * 
** * *** ******* **** 



SXNBBB1 
SXIBBB2 
STNEBR4 X 

*****B2********** 



• •311211 INVALID * 

• OPERAND* * 

• *G2 * 

***************** 



DIBBBB X 

*****B3<»*«*#**** * 

* POUT TO BSC * 

* DIB ALLOC TOO • 

* SHALL FOB * 

* APPBOPBIATE * 

* **•**•*******: 



POUT TO BSC ♦ 

LIB ALLOC TOO • 

SHALL FOB • 

APPBOPBIATB • 



MBS. 



•BJ> • 



*****B5********** 

• POUT TO HS6 • 

• TBACRS BXCBBD * 

• CXLXBOBBS FOB • 

• APPBOPBXATB • 

• LIBRARY 

******* **•*•*: 



K"»B8S 

BA«3, BBJ 



* **c i************ 

* PBINT BBSSAGB ♦ 
3B70A 
* *fl2 * 

***************** 



•****D 1**** ****** 

* *' 

* INITIALIZE TO ♦ 

* WRITE A * 

* I PL RECORD 1 * 

* • 
***************** 



• **B |************ 
S7C 
* ZERO * 

IPL 
♦ RECORD 1 * 

**** *** ********** 



****f i********* 

• SVC 7 NAIT ♦ 
♦08 NONEXISTENT * 

* CCB * 
*************** 



[»**** 

3» * 4 

* * 
**** 

X 
***C2************ 

• PBINT EBBOR * 
BBSSA6E 

* •3H21I«»H2 ♦ 

***************** 



***C3********* **♦ 

5 BBS 
H63X 
*H2 

***************** 



PBIMT BBSSAGB 
3H63I 

*H2 * 



***cn***** ******* 

PBIBT BBSSAGB • 
3H6«I 

•B2 * 



•**C5****^******^ 
• PBIBT BBSSAGB ♦ 
* *H2 * 



ROOTCBCL 

**D2******* 

* SET ON Si * 

* TO INDICATB * 

♦ CANCEL APTEH 

♦PR. LIB STAT * 

REPORTS *P2* 

*********** 



*«**E2********* 
♦EXIT TO CSSTART^ 
♦AT -END JOB- VI A^ 
♦ RTNCALL • 

*************** 



lb 

■BC2 



XTNERR X 

*****23********* * 

♦ POINT TO BSG ♦ 
♦IS? ALIO EXTENTS ♦ 

♦ DBPINBD POR ♦ 

♦ SIS BBS ♦ 

♦ ' * 
***************** 



***P3************ 
♦ PRINT MESSAGE • 
* *H2 ♦ 

***************** 



*G2 
WITH PROPER 
REASON TEXT 



CNTALLO X 

**H 1******* 
- ♦ SVC 12 ♦ 

♦ RESTORE JOB ♦. 
♦ CONTROL BITE ♦ 

♦ TO ORIGINAL ♦ 
♦ SETTING ♦ 

*********** 



♦H2 
VIA RESTART ROUTINE 
IN ROOT PtfASE 



***j 1************ 

♦ PRINT MESSAGE ♦ 
3H68I 

*B2 ♦ 



***** 
♦MB ♦ 
♦ D5^ 
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Chart MP. MINTA - Subroutines 
Refer to Chart 40 



• TKCOHP * 



****13********* 

* « 

• HOfLAB • 



.• 

>:tbacks 



.• 

.• 

IBS 



1 ° ll }8»t5 W » * » 

• lilfxiizsi 

* IK 



TKCOHP I 

*•* **B I********** 

* LOAD CC AID * 
» HH W DISK * 

* ADDRESS IITO * 

* REGISTERS * 



HOVLAB I 

*****£, 3********* * 

• BSTABLISB * 
•ADDBBSSABILITT • 
♦FOB HIT. TABU* 

* (PDBVTTPB) * 

•**•*****••**••** 



COPIED 01 

.IOI-33«0 .• 

"^▼ICB.* 




CI *. 

.* *. 

INDICATOR *. 
SDBTBACT 

".. 

•. .* 



*****D f********** 

* ADD * 

• DISPLACBBBET * 

♦ TO TRACKS * 

• RBGISTBR * 

* * 
*** ************** 



.1. 



V."il 



*****< 



*****D2** ******** 

* REDUCE CIL 10 • 

* BT 1 AND * 
•DISPLACEMENT B»* 

* HO OF TRACKS/ * 

* CILIHDER * 
***************** 



-• TRACKS 

EICBBD 

*. 1 CIL 



*****? i**** ****** 

• RBDOCB TRACKS * 
•BT BO. TBKS/CTL* 

• AID UPDATE * 

• CYUIDBR * 

• BI 1 * 
**• *** *********** 



.* IS 
• STSRBS DBT 
♦. 33*0 



* * 

• A5 * 



*****C** 

• DBCBBIBBT » 

• OLD CTLIIDBB * 

• BDHBBB • 

• BT 1 • 

• * 
***************** 



*****D3********** 



***************** 



*****vn********** 

* DBCBBHBIT • 

* IBR CTLIIDBB • 

* HUBBBR * 

* BT 1 * 

* * 
***************** 



.* DISPLAC. *. 

*. GT BO- OP . 

*. TRACKS .* 



*****G2********** 
♦SUBTRACT 1 FROH* 
•CYL BO. AND ADD* 

* MO OF TRACKS/ * 
♦CTLIHDBR BT NO * 

* OF TRACKS * 
***************** 



E3 •. 

* * 

LOBCASE 



* A5 • 

* 
**** 

LHIGH X 

*****P3********* * 

* IBITIALIZB * 
♦DISK ADDBBSSBS * 

* FOB BEAD AID • 

* WRITE LABEL * 

* CTLIIDBB * 
**************** * 



.X. 



S0BIT2 

*****$2********** 

* SUBTRACT * 

* DISPLACEHEIT * 

* FROH TRACK * 

* HUHBBR * 

* * 
***************** 



TKRBTH X 

*****j2********** 

* STORE UPDATED * 

* CC AID HH ♦ 

* IB PARAMETER * 

* PASSERS * 

* * 
***************** 



****K2********* 

* RBTURI TO * 

* CALLIRG * 

* SEOUEICE * 
*************** 



IHITIALH X 

*****63********* * 

* IIITIALIZB * 

* COUITBB FOB * 

* HUHBBR OF * 
•TBKS/CTLIBDBBS * 

**************** * 



COPLABH X 

*****H3********** 

* STORE TRACK * 

* BOBBER IB OLD * 

* AID IEB LABEL * 

* CTLIIDBB * 



* ib;__ 

* cooi 

* BOBBBB OP 
•TRKS/CTLLEDBB 



COPLAB I 

*****C5********** 

* STOBB TBACK # * 
•IB OLD AID EBB * 
•LABEL CTLIIDBB • 

• ADDBBSSBS * 



,22! 



S*******m**+* 



*****g5********** 



•***G4********* 

* RETUBB TO * X 

• CALLIIG *X... 



*************** 



G5 *. 
.•SBCOBD •• 
TBS .•CXLIBDBB IS*. 
....•COPIBD OB BOB-. 
•33*0 DBflCB* 



*****&$********* 

• IiCBEHEIT 

• OLD CTLIIDBB 

• IUBBBB 

• BI 1 



***** 



***J3********* *** 
COPTLB ^ HQ 



******* ********** 



*****K 3********* • 

* * 

* IICBBHBBT * 

* TRACK IUHBER * 

* BT 1 ♦ 

***************** 



**** 
• BS < 
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Chart MQ. MINT A - Subroutines 
Refer to Chart 40 



••• 




• 


■ 


* 


COFTLB * 


• 


.1 


ft************** 


•*•* 


• 


• 


• B1 


• a. 


• 


• . 



• Sf C * 

BID A 

• LABEL RECORD * 



D1 *. 

.* *. 

.• HIS A * 

♦.1ICORD FOOID 

♦. -* 

*. .* 

*. .* 

* TBS 



*«**•£ |********** 

* BOTE * 

• DISK ADDBESS * 
•TO GO HIT FIELD * 

* FOB MRITE ♦ 

• * 
***************** 



***? -ft*********** 

* SVC * 

WRITE A 

LABEL RECORD * 



COPTLC 

*****B2********** 

* POT * 
♦RECORD NOBBER 0* 

* IH HEAD AMD * 

* »RITE * 

* ADDRESSES * 
***************** 



****P2********* 

* RETURH TOn * 

* CALLIMG * 

* SEQ0ERCE * 
*****¥********* 



*****G i********** 

* OPDATB * 

* BBCOBD ROBBER * 
♦BY 1 AID STORE * 

* IB DISK * 

* ADDRESSES * 
*** ************** 
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Chart NA. MAINTOP - Initialize I/O Table , Check for Operands (Part 1 of 3) 
Refer to Charts 44-46 



♦PC • 



•Be • 

• * 



****A |********* 



CHKSSL .*. 

A3 •- 

.* *. 
.* AIT *. 10 
*. ACTXfB .*... 
*. BHTRIBS .* 



*8! 



*****•> 



m: 

111 



IX* 

***** 



****B 1********** 



oqn ... 

.* ART *. 
.* AVAILABLE *. BO 
♦. DIRECTOR! .*... 
*. BHTRIBS .* 



* * 

* B5 * 

* • • 
*•♦* 




ffc*j.» icciJ *%.i! 






. •. 



X 

•*** 

■* • 
* A5 * 



LDBOF X 

•*C1******* 

* RODIPX * 

* -B OF- IH 
* HAIHT BOOT 

• PHASE TO 

• BBAHCH * 
*********** 



*****C3********* * 

* SAVE . * 

* DESCRIPTOR * 
•RBCOBD BHTRT AT* 

* -STSDIR- * 

* * 
**************** * 



**C5******* 



*********** 



X 








X 


.*. 






.*. 


D1 *■• 






D3 *. 


.* *. 






.* AHI *. 


.* SOURCE *. IES 






.* AVAILABLE *. RO 


*. STHBT LIB .*.... 






*. LIBRARI .*........ 


• .ALLOCATED.* 








*. RBCORDS .* 


*. .* 








*. .•■ 


*. •* 








*. .• 


* RO 








* TES 


*•** 










. * * 
..X* A4 * 








• 


* * 










**** 


*E2 




CTBRCL .*. 


H0VIR6 




RAX RECORDS PER TRACK 


*****£ 1********** 




LOGICAL 


UHIT 


E3 *. 


♦HOPE 1RPO PROM * 




SISTER DIRECTORY 


.* AR •. 


* ROOT PHASES * 




ADDRESS 




.* OPBRAHD *. RO 


* -IBI TABLE- TO *X.. 








*. Oi THE .*.... 
*. CARD .• 


* -TBLEIO- * 






* *E2 * 
***************** 






• . .* 






*. .• 


• 






* IES 








































■ X 


X 






AHT8KHRE .*- 


*****? j********** 






P3 *. 


* ROTE I/O * 

• BOPPER ADDB * 






.• *. 






.* BOOK *. RO . 


* TO I/O TABLE * 

• AHD SET * 






*. RARE OR .*..!. 






*. CARD .* 


* POIHTBR * 








*. .* 



*****D4********** 

* POUT TO HSG * 
" >3H53I SOORCB * 

STATBRBRT * 

* LIBBABT * 

* IS PULL" * 
***************** 



I* 



***************** 



***G |************ 
READ IH LIBRARI 
•DESCRIPTOR RE- * 
CORD 7IA RDERT 
• ROOTIRE IH BOOT 
PHASE 
***************** 



***************** 



♦*F4******* 

• SET SR * 
* -PRVCAH- 

* TO CARCBL 

* 

• * 
*********** 



X 

.*. • 

63 *. 
.• VALID ♦. 

..*■ SUB LIB *. RO . 
•-CHAR IR BOOK .*..!. 
•. RARE .* 
•.OPRD .* 
*. .* 
* IBS 



****6«*** ****** 

• 60 TO BRDJOB * 

• IR ROOT PHASE • 



.* PERIOD 


*. 


BO . 


*. BBPORB 




*..X. 


•.BOOKHAHB •* 




*. .* 






*. -* 






• IBS 




• 


























X 






COBPLH .*. 






J3 *. 






••BOOK *. 




.* RARE 8 


*. 


RO . 


♦ . CHARS OR 




*..X. 


*. LESS 


.* 




*. .* 






•. .* 




X 


• IBS 




***** 






•HD • 


J*. 




* oi* 




* * 

* 


*HB • 




HSGLD 


• 41* 






* '♦ 
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Chart NB. MINTUP - Initialize I/O Table, Check for Operands (Part 2 of 3) 
Refer to Charts 44-46 



E3R: 

BCJ2 



*****A 1**** ****** 

• BOTE BKHAHB • 

• WIT BOOT DO* • 

• TO PABAB LIST • 
•AHD OLD BKBABE * 

• SIfB ABBA * 



* SCAB DIB FOB * 
•BKHAHB. BBTOBH * 

• IF FOUHD * 
*** *** ***** ****** 



*** *«c 1**** ****** 

• BLAHK BOOK * 

• BAHB AFTBB * 

• SOBLIB PREFIX * 

• IB PABAHBTBB * 
LIST 



BIT - BBBOB 

1 - OSB OF TEHP- 
, OBABT OPDATB 
OPTIOB 



OPDATB AFTBB 
BOOK UPDATE 
% - PBOCBSSIEG 



2BD TIHB 
THBOOGH FOB 
2 OP EH AMDS OB 
COBTBOL CABD 
2 OPEBABDS 
EXIST OH 
CONTBOL CABD. 



iLbeadt foobd 



OT FL_ 

BBBOB IB SB 
— , OF CABD 



» DIGIT 



1ST L__ 
OPBRAHS 
CHECK 
• CHBCKIHG BOD 
LBTBL 

- BBSBQOBHCIHG 
OPBBIBD IS OB 
OPDATB CABD 

- CBABGB LBTBL 
OP KB A ID IS OH 
OPDATB CABD . 

- 2HD BOOKHABB 
OPBBiHD IS OH 
OPDATB CABD. 



• POIHT HBKBB65 • 

• PAST RBSBQ • 

• OPBBABD • 



X 



*. A BLABR 



******* ********** 



C4 *. 






***C5************ 


.* IS *. 






EBBTB BV 


.* OPBRABD 


** 


TES 


*-* -*-*_*_*-*-*-* 


•. •MO , -HBSBQ 




*.... 


■BITE HSG 


*. lOT DE- .* 




• OB SISLST * 


*.SIBBD.* 








*. .* 




1 


***************** 


* BO 




***** 








•HF ♦ 




* 




* A3* 
* • 


I 



*****D I********** 



**S3******* 



**D5«****** 



► IBCRBHBET 


* 




* SET OH * 


IBS .* IS *. 


* TDHH OFF • 


> POIHTBB PAST 


* 




• BIT 1 *I. 


*. ■ OPBBAHD .* 


* ERROR SB ITCH < 


► 1ST OPBBAHD. 


* 




* S HITCH* * 


*. »FS» .* 


* *A2 BIT • 


► 


* 




* * 


*. .* 


* • 








*********** 


*. .* 


*********** 










* MO 














**♦* 


. 






. 


„ 


*HF • 








X 




* K2 *.X. 








***** 




* * 


X 






♦HF * 


X 


**** . 


.*. 




STSH2 


* A3* 


.*. 


IHDSQ1 X 


B1 *. 




**B2******* 


* * 


E4 *. 


**S5******* 


.• BLAHK *. 




* SET SB TO * 


* 


.'* *. 


* IBDICATE * 


.* DBLIHITBB * 


. HO 


* TEST POH * 


RDDISK 


IBS .* IS IT *. 


♦BBSBQOBBCIHG * 

* BI 1 ' 


►. no HOBE 
* .OPEBABDS).* 
*. .* 


„*..«,. 


....I* SECORD * 




...*. C»0» OR -* 

.». c»oo« .* 




* OPBBAHD * 


* -RESBQ+1- * 
* M X«01« * 




* *A3 BIT 7 * 




*. -* 


*- .* 




*********** 




X *. .* 


*********** 


* TES 








**** * BO 








**** 




* * 


**** 


m 




* * 




* B5 * 


*BC * 






* F2 *.X. 




* * 


* K2 *.X. 






* * 


***** RBFBRBHCBS 

* * TO BBF2: 

* **EDJ5, «D3 
* * HFKV 


**•* 


* * . 






**** * 




**** 


X 




SETPTH X 


X 


SBQSHCH X 


**pl******* 




*****f2********** 


**P4******* 


**P5******* 


* IHDICATB * 




* SCAR * 


* 


• * 


* SET SB * 


• BBSBQOBBCB 
> Bf 1 


• 


* STATEHBHT POH ♦ 




* SET OH * 


* FOR LATEfi • 


* 


♦AMOTHER OPBRAHD*X.. 




* BIT 3 * 


• RBSBQDBHCIHG 
* *A2 BIT 2 * 


• -RBSBO- 
• « X*O001* * 


• 


* VIA CSCOHT IH » 




* OF-SHITCH1- * 




• ROOT PHASE * 




* *I3 * 


* • 


*********** 




***************** 




*********** 


*********** 



**Q ■(•****** 

• SBT SH TO • 
IBDICATE * 



*********** 



.* *. 

OPHD ••■ IBS 


.* RE- *. 
.♦SBQUBHCIHG *. IBS 
...X*. OPBBAHD .*.... 


. TALDE .* 
*. • .* 

*. .* 


*. PRBSBHT .* 
*. *A3 .* 

*. .* X 



*****€ i|*** ******* 

* • 
•CLEAR HRKBBG5. • 

* POIHT HBKBBG2 * 

* TO OPBBAHD * 

* * 
***************** 



***** 

•HP • 

* A3* 

* • 



H2 *. 






H3 *. 


**H1»******* 


-* *. 




.*CBAHGB *. 


■•* * 


.* RESULT *. 


TES 


.* LEVEL *. IBS 


* BESET * 


.DOE TO RECORD. 


*.... 


*. OPBRAHD .*.... 


* -RBSBQ+1- • 
■■■* TO X«00« * 


*.0?ERFLOU .* 






*. PRBSBHT .* . 


*. .* 






*. *A3 .* 


* * 


*. .* 






*. .* X 


*********** 


* HO 






* HO ***** 










*HB * 


**** 








* A1* 


*HC * 








* * 


* B2 *.X. 








• 


* * 


X 






X CHKOP3 


**** 


HA .*. 






.*. TRAHSL X 


J2 *. 






J3 *. 


*****j 


.* *. 






.*ITEHP» *. 
.*2HD BKHAHB *. IBS 


* 2BBO OUT • 

* HRKRBG6 • 


.* SCAB *. 


BO 1 




. STOP DOE 


*..X 




*. OPBRAHD OH .*.... 


* fBEGISTBB 2, * 

• OSBD FOB TBT * 


*.TO COHHA .* 






♦ .UPDATE CD.* 


• • .* 






*. *A3 .* 


* IHSTROCTIOH1 * 
***************** 


*. .* 


X 


*. .* X 


* IES 


***** 


* HO ***** 






*HD * 


*HD * 


. 




* D1* 


* A2* 






* * 


X * * 






* 


***** * 




, 


HSGLD 


*HD * CBKOP2 


X 


X 




* D1* 


.*. 


**K2******* 




* * 


K4 *«. 


* SHIFT * 




* 


.* *. 


* SUTCB2 BITS * 




BSGLD 


.* fALID *. 1 


1 POSITION TO 


* 




*. RESBQOBBCE .• 
*. OPBBAHD .* 


* LEFT OSIHG * 






*PRHRBG3 *A3* 






*. .* 


*********** 






*. .* 


. 






* IBS 


• 






*CHRDSC 


X 






X 


***« 






***** 


* * 






•BC • 


* F2 * 






* A1* 


* •• 






* * 


*«** 








* 



X 
**** 
* 
* B5 
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Chart NC. MINTUP - Initialize I/O Table, Check for Operands (Part 3 of 3) 
Refer to Charts 44-46 



•KB • 

• * 



#****t t********** 

• * 

• STUB OPBBABD • 

• CHABACTBK • 

• IB WOIK * 

***************** 



B1 *. 
.* IS *. 

.* emu a *. ■ 

DKIHAL .*. 

• • BOHBBB .♦ 
*. .• 

*. .* 
• IBS 



***** 
*BB * 
* A5* 



«****C -|********** 

* * 

* IBGBBBBBT * 

* POIBTBB TO * 

* BBXT CHAB * 

* II OPBBABD * 
***************** 



♦C2 
SBB BOTB *A3. 

CHART BB. 



IS 
IT A 

BLABK 



D2 *. 

.* 1ST *. 

.* TIHB *. BO 

•I*. THROUGH .♦... 

*. *C2 .* 



X 

***** 

*BB * 

* A5* 

* * 



HTSQBO 



•.DEC DIGIT IB . 
*. OPBBABD .* 



*****p -|»********* 

• PICK SIBGLB * 

♦ DIGIT ABD * 

* H OTB TO * 

• DOUBLE SORD * 

♦ BOOBDABT * 
***************** 



**B2******* 

* SBT OFF * 

* 1ST TIHB * 

THROUGH 

* SWITCH * 

* *C2 BIT 3 * 
*********** 



X 
***** 

*HB * 
* J4* 



* PACK 2 DIGITS * 

* IBTO DOUBLE * 

* HOBD BODBDART * 

* * 
***************** 



* COHTERT * 

♦ RBSEQDBBCIBG * 

• ROBBER TO * 

* BIBARI * 
***************** 



IS THE 

BOBBER 

GT 10 



***** 
*BB ♦ 
* A5* 



•****K 2***** ***** 

* * 

* STORE * 

* RESBQOBRCIMG * 

* DIGIT AT ♦ 

* RESBQ+1 * 
***************** 



***** 
*BB * 
* F5* 
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Chart ND. MAINTUP - Check: Temporary Update Operand 
Refer to Charts 44-46 



.* VALID ♦ . 
*. SDBLIB 
♦.CHARACTER.* 








X 

CHKPBR .*. 

B2 *. 
.• ♦. 
.♦ PERIOD ♦ . NO . 
*. BBPOBB .♦..!. 

♦.BOOK! A HE .* 
*. .♦ 

♦. -♦ X 
• TBS •*** 

* ♦ 

* Dl * 

* * 
♦♦♦♦ 


X 

.* BOOK * 
.♦. BAHB 

♦ . LBBGTH 

♦- .♦ 
* BO 


'♦ 
,♦ 


:♦!!?. 


X 

.♦. 

B« *. 
.♦ ♦. 
.* ALL *. BO 
•• ♦« CHARS •♦.... 






*. CHECKED -* 

Z *♦. .♦* x 

* TBS ♦♦♦♦ 
• * 
...... .....X. * P2 * 




* * 






X 














*****C !♦♦♦♦♦♦♦♦♦♦ 

♦ SAVE OPERABD * 

♦ ADD BESS ABD * 

♦ CLB IB TBHP *X 




CHKLTH .♦. 

C2 *. 

.* BOOK ♦ . 
■0 .♦ BABE *. 
....... LBRGTH VALID .* 




*****C3********* * 

• * 

* POUT TO * 

♦ BBXT * 

• CHARACTER * 

* *' 
****** ********** * 


DBCBBG X 

** ***c«********** 

• HOVE TBHP * 

• BKBABE, B/0 * 

• DOT. TO PA HAH * 


• UBB SAVE * 

♦ AREA • 
****** *********** 




*. .* 

♦. .♦ 
♦ . .♦ 


• LIST * 

• ♦ 
***************** 


♦♦♦♦ IlBFBRBBCI 

* * .TO „ HOT 

* * *J.IU3, BB. 

* * .BBJ3, ia 
♦♦♦♦ 


! 


* IES 






X 

•*** 

* * 






\ 


BSCLD X 

*****D 1********** 

* POUT TO RSG * 

* »3U21I ♦ 
..X* IBVALID * 
. * OPERABD* • 




DECB2 X 

*****D2********** 

* BOTE TEHP * 

* BKBAflE TO * 

* SAVE AREA AND * 

* SUBLIB PREFIX * 






* F2 * 

♦ * 
♦♦*♦ 






I 

*****D%*** ******* 
♦DRTSCB2 BT* 
*_*_*-*-*-*_*-*-* 
♦SCAB DIRECTOR! ♦ 
* FOB BKBABE ♦ 



♦D5 
BBAHCH TO 
-BHCABD- IF 
BOOK ALMBADX 
IB LIBRARY. 



♦*♦ ♦♦* *********** 
* 
♦♦♦♦ .RBPBRBBCfS 

* * -*-»EJ3, VPC4 



****** *********** 



*****£ 2********** 






*B3 


♦ SAVE PTB TO * 






SEE BOTE *A2 


* BOOK BABE AND • 






CHART BB. 


* RUBBER OF * 








* CHARACTERS IB » 








* BOOK BABE * 








***************** 








**** * 








♦ * . 








* F2 ♦.X. 








* * 








♦*** X 








TRBSLTE .*. 








F2 ♦. 






*F3 


.* *. 






SEE BOTE *A3 


.* BKBABE ♦. BO 




CHART BB. 


♦. CHARACTER .♦. 








♦ ALPHAMERIC* 








*. .* 








♦. .* 




X 




* TES 




•*** 






* 


* 






* 


D1 * 




I 


* 


* 





**Hl|******* 

* SET SB TO * 
♦I1DICATE USE * 

♦OF TEBP UPDATE 
♦ OPTIOB ♦ 

♦ ^83 BIT 1 ♦ 
*********** 



♦• ***p4*** ******* 



***************** 



***** 6 4*** ******* 

♦ BESTOBB LIB ♦ 

♦ DIRBCTORX ♦ 

♦ BLOCK TO ♦ 

♦ BUFFER AREA ♦ 

***************** 



1ST 


*, 


TES 


CHAR OP 




♦. ... 


BOOK 


.*" 




*.HAHE .♦ 






♦. .♦ 




X 


♦ BO 




♦*♦• 






* 






♦ Dl 


X 




* i 


**** 




**** 


* * 






* A3 ♦ 






♦ * 






*♦♦♦ 







H4 
♦ IS 
CHAR 



X 
♦. 

♦ . 
♦. 

* 

BLAHK .♦ 

.♦ 
♦. .♦ 
♦ IBS 



SBTSBQ X 

•*j ******** 
♦ IIDICATE ♦ 
~ RESEQUENCE 



SBTSB2 

**j5*****«* 

* SET SB TO * 
♦CHECK CHABSE 



*********** 



♦«*♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SET SB. FOB ♦ 
♦RBSEQUEBCB *E3* 

♦ BIT 2 ♦ 

♦ ♦ 
*********** 



♦BB ♦ 
♦ F2^ 

♦ ♦ 



. BDDISK 

X 

♦♦♦♦* 

♦BF ♦ 

♦ A3^ 

* ♦ 
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Chart NE. MXNTUP - Process V.M Operand (Part Vof 2) 
Refer to Charts 44-46 



CH1COP3 X 

ftftftft*A"f»* ****** 

o en ra to * 

*BOOK IH BBTBT * 

* AHD BOTE TBBS * 

* BO. TO HAU- * 

* SO EI BOOBDABI • 

***************** 



•S3 
S88 KO« *&3 
CHAR BB. 



* POIBTBB BI 1 • 



• .♦. 
BI ♦ . 
.•CBA86B • . 
.* XSVBL *. BO 
ft.TBBIFICATXOH .*... 
• .BBQOIRED .* 
*. .* 

*. .* 
* IBS 
ft*** 
*HH * 

* 62 *.X. 

* * 
' •*** 

CHPCHLV X 

*****C 1********** 

* SATE OPBRARD * 

* PUB ABD * 

* IHITIAX.IZE * 

* COOBT BEG * 

* HUH « • 
*** *** ** ** * ****** 



*ftB3*ft*ft*** 

* SBT SB TO * 

* CHECK 
.*».X* BBSBQ0BBC8 

* OPSBABD 

• *A3 BIT 1 * 
*********** 



ft* ft**C3ft*ftft* ** ** * 

* * 

* IECBBHB8T * 

* POIBTBB PAST * 

* OPBRARD * 

* * 
***************** 



.J. 

B4 ft. 



ftftft* 

ft ft 

* G1 * 



•****C4|ftft**ft ftftft** 

* BOfB 1. 2. OB * 

* 3 DIGIT BO. • 

* TO FOLL-BOBD * 

* BO DM DA BY * 

* * 
************ ***** 



**** X 
PER FED .*. 

01 *. 
.*PBRIOD *. 
.* FOOMD *. HO 
*. (BETHBBB .*... 
*. T AHD .* 
*. H) .* 
*. .* 
* IBS 



*****£ ?***• ****** 

* LOAD ADDB OP * 

* -PMDM-, * 

* CHART HP, IB * 

* LKKREG2 * 

* * 
*** *** ***** ****** 



CHKHOH X 

*****p f********** 

* SA?B OPBBA1D * 

* POIBTBB. PIIID * 

* BO. OP DIGITS * 

* AR» SATE * 



D3 *. 
.* is • 

.* THBBB 
*. ABOTHBR 
*. OPBRABD 



***** 
*BD • 
* JH* 



BIBCfBT X 

*****Dti********** 

* PACK ABD * 

* CORfBBT THE * 

* BOHBBB TO * 

* BIBABI * 

* * 
***************** 



.* CBBCKIBG 
•. HOD 

*. LETBL 



****p2*** ****** 

* * 

* PBDDBC * 

* * 
*************** 



***************** 




. 








ft*** 






• * „ 




. 


* 61 *.X. 






* * .X. ...... 






**** x 






PBDDBC .*. 






61 .*. 






.* IS *. 






.» DIGIT *. 


no 




*. VALBB .* 






*. DECIHAI. .* 






*. .* 






*. .* 


X 




* IBS 


**** 






* * 






• H3 * 




X 


* * 




**** 


**** 




* * 






* A<l * 






* * 






**** 







* POIBT TO * 

* BEXT * 

* CHARACTER * 

* * 
**************** * 



X 






X 




.*- 




CHABST 


.*« 




p* *. 






P5 *. 




.* *. 






ft 


*. 


.* TBBSIOB *. 


TBS 


IBS .* 


HOD 


*. 


. BO. GT 127 . 

*. .* 


*....! 


....*. 

*. 


«m 


.* 

.* 





.* COOBT 


•• 


HO 




*. REG 




*...* 




*.BXHAOSTBD. 


* 






*. .* 








*. .* 




X 




* IBS 




*•** 




**** 




♦ < 




* * 




ft D1 « 




* H3 *.X. 




* * 


***** 


* ' * . 




**** 


*BF * 


**** x 






* CI* 


WRCHLVL .*. 






* * 


H3 *. 






* 


.* *. 






.*PROCBSSIRG 


*. 


IBS 




...X*. EBD 




*.... 



********** 

* • 

* SATE VBRSIOH * 

* BOHBBB AT * 

* 'TEBHOD- * 

* • 
***************** 



**II4ftftft ftftft* 

* SET OFF * 

* BIT AT 
-HBOBD-H- TO 

• COBPABB VH > 
ft * 

*********** 



«***«G5********** 

* ft 

• SAVB HOD • 

• SJ5TSL BOHBBB • 

* AT -VBBHOD*1 * 



*J2 

SEE BOTE *A2 
CHART MB 
BIT 4. 



*****j j********* * 

* . * 

* POIBT TO HSG * 

* • 301 II BBOBG • 

* CHABGB I.BTBL* * 

* * 
***************** 



CLDBOBD 



J* *. 

.* *. • SBT SB TO * 

i «. TBS * IBDICATB * 

ft. -BED- CABD .« X* CHBCXIBG 

ft. J* X • BOD UEVE& • 

*. .* . * *K2 BIT % • 

■ -ft. : .* ' ' » ftft*«ftft»»ft»ft 

• HO . . 



*K2 

SBB BOTE *A3 
CHART BB, 
BIT «. 



*MD ft 
* BI* 
ft ft 



.*. 
K* *. 
.ft CARD *. 
»*CHBG UVBI. *o TBS 
ft.BQ DIB BHTBT .«>.... 
*. CHHG .* 
•.LBfBS..* 
• • .* 
ft bo 



•HP • 

vr 

* 

A UtKBBt 
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Chart NP. ttAINTUP - Process Y.W Operand (Part 2 of 2) 
Refer to Charts 44-46 



* 

i 



*****A2********** 
'*, HOTI BOD * 

* LB? BL BOBBBt • 
...X* TO BALFIOBD • 

* BOOBDABI, • 

* -HIOBD+1 * 
***************** 



MSI 

**** 



•CLBAB BLK BTTB • 

• COOBTBB BBC • 
•AID SBT PTB TO * 

: s,s sSiT p : 

**************** * 



***************** 
BBBTB BT 

»,. » . #„ ■ *.*■» . » - * . » 



i: 4 



CTLCED .*• 

A5 *. 
.• •• 

.• COUBB *. BO 
••!•• _72 _••.... 



*****B *»•*•***•** 

♦ SAfB BOD * 

* LBTBL POINTER * 
•lip CIIC LENGTH* 

• Of REMAINING * 

*****%*V**l*****l 



X 




.». 




CI • . 




•• BOD *. 




LBTBL BO. •• 


■0 


BXIST AID . 


*.... 


•OPBD LBTB.* 




•.fALID.« 




•. .• 


X 


• TBS 


***** 




•BE * 


• 


* H3* 



*«5 

SNTCH3 BITS OB XBDICATB— 
BIT - (NOT 
dSBDI 

1 - 1ST SOOBCB 

CABD AFTBB 
COBTBOL CABD 

2 - CHECK 

SBQUBNCB 
3-1 SBQ. BO. 

OB COMTECH. CABD 



.. BITB 
HBCOBDS 
- 1ST COBTBOL 
CABD AFTBB 
OPDATB CARD 



•IB • 



.♦ BBCOBD *. IBS 
►. # SXZB ■ 80 ^.♦.... 

*•. ••* 2 
*. .* 

* BO 


**C3******* 2 

• SBT SI TO • 
• XBDXCATB * 

* BBC SXZB » 81 * 

* *B2 BIT 6 * 

* • * 
*********** . 


Ix 1 



*******,********** 
•BBSTOBB SITCH1 • 

* AID SBT • 

* POIBTBB TO * 

* STSIPT IBPOT • 



* POUT IBXBBfii • 

• TO COLOBI 72 • 



*****C«*** ******* 

* SBT BUPFBB • 

* POIBTBB FOB * 

* 80 OB 81 * 

* BTTB BBCOBD • 

* * 
***************** 



.* *. 
IBS .* IS *. 
...*. OPBBATIOI -• 
♦ . -ADD- .* 



*****D *********** 
•CBR FOB DBCXBAL* 



*D2 
TBB PBIVATB DIRBCTORI IS 
SBABCHBD FIB ST (IF STSSLB 
IS ASSIGNED). AID, IF TBB 
BOOKNABE IS BOT^OUND. 
TAB STSRBS SSL DIRBCTOBY 
IS SBABCBBD. THE NOT FOOMD 
DECISION IS BADE IN TUB 
-BOOK- NODDLE. 



.♦PROCESSING *. 

>.-BBD- STATB- .• 


IBS 












• . BBBT •• 








*. .* 








*. •• 


X 






• BO 


***** 








*BH • 








• »3* 








* * 








* 






*** ******** 


BBDPBOC 








•P2 




* SBT SI TO * 




SEE 


BOTB *A2 


• DO CBAIGB * 
► LBfBL OPDATB • 




CBABT BB, 




BIT 


3. 


♦ AFTBB BOOK * 








• OPDATB *F2 • 
*********** 















**s ******** 

• SBT SI TO * 

• CBBCK * 
• BBSBODBBCIIG 

* OPBBABD * 

• «G2 BIT 5 * 
*********** 



*G2 
SEE NOTE »A3 # 
CHART NB. 



LDINST X 

*****D3********* • 
•SET POINTEB TO • 

* LIB BLK BOILD • 
•ABBA ABD SATE. • 
•CLEAR BLK BITE • 

* COONTEB ARB& • 
****** ********** * 



*****£ 3********** 

* POINT TO SAfB * 

* ABBA FOB OLD • 

* BOOK N ABB , * 

* -BKNAHB- • 

* • 
***************** 



FIND X 

•****F 3********* • 
•BOOK HZ* 

*.*.*-*-*-*-*-*-* 

• SBABCB DI 

• FOB BOOK 

• *D2 
****** ********** * 



BOOK 
BANE 
FOOBD 



D« *. 
• *• 
IS *. 
BBCOBD 
BLABK .• 



**** 

• • 

• B3 • 

• ♦ 
**** 

PRINT 



IBS •• IS *. 
...*. OPERATION .• 
*. -BBP- .* 
♦. .• 
X *. .* 
***** * fo 
*HJ • 
• A2» 
• • 

PBOCBEP X 

B5" "*. 
.* *. 

IBS .* IS IT •. 
...*. -DEL- -• 



*•* ************** 



F* •. 

.• IS IT •. 
ES .• A COBTBOL •- 
•• STATBBBBT .♦ 



**** 

• * 

• A5 • 

• * 
**** 



-• 
. .• 
• IBS 



*****a **♦*•**•*•* 

* * 

• POXIT IBKBBG8 • 



wmt 



lUi 



**** 

* • . 

♦ B3 *.X. 



• **** 

•• BBADRTB X 

* *****B3********** 

► • SET IRKRBG7 • 

• IITB ADDB OF • 
.!♦ -CSSTABT- IN • 

• BOOT PHASE AS * 
' BASE BEGISTBB • 

— *********** 



•* ***6%********* • 

• POIBT TO HSG • 

• •30101* • 

• STATBBBBT • 

• OOT OF • 

• SEQUENCE • * 
***************** 



***** 
*HD * 
♦ B1^ 



•NL • 
• A2» 

* * 



F5 •. 
.• •• 

TBS .* IS IT 
...*. -BBD- 

•. 

• - .• 

X ♦. .* 

***** * |o 



*****G5********** 
• POIBT TO BSG • 
•30201 • 

IBfALID. • 
BBATIOB* • 
w * 

***************** 



•BI • 
• J5* 

* * 



•*J1******* 

• SBT OFF SI • 

CHECKING 

HOD LBTBL 

•62 BIT « ' 



** * j 3*** ** ** ** *** 



BKNTFND X 

*****J4********** 
• fiOFB BOOKNABE • 



JISSi 



•X.XXXXXXXX BOT • 

• IB LIBRAE I • « 

— -— — -- ****** 



•*K2»****** 

• * 

SBT 

•RBSBQ* 

TO X«00» 



*****K3********** 

• SATE • 

• SBTCB1 * 

• AND SET • 

• POIBTBB TO • 
SKIP CODB 



• IBS 
'SETPTR 



i 

***** 
•IB • 
♦ F2* 

* • 



.INDSQl 

***** 
•IB • 
• B5* 
* * 



♦!*5*I!*_*_*_ 



***************** 



***** 

•BO • 

• B3* 

* • 
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Chart NG. MAINTOP - Process ADD Control Statement (Part 1 of 2) 
Refer to Charts 44-46 



procadd i 

•*A 1******* 

• sir sw * 

♦ PROCESS I BG ♦ 
* •IADD« CARD • 

* *A2 BIT 5 * 



•12 

-SWTCH1- 

?BB IOR •12, 
BAIT IB. 



•B2 
-SITCH- 
SBB 10TB *B2, 
CURT IP. 



■UT" 



• font r - ' 



HIT TO * 

-iifotV • 



*°88**A5«i*«< 
*€Ofl PR BS 

» , *„»~» -. 



RE TORI Ol 

10 BRROH * 

*********** 



• AID -IIPUT 



■Of B RECORD 

3«S"BP 

PBIIT 



• II COBPIBSSBD • 

***i85*s*!l!***: 



**** 

• • 

* 15 * 



**B5*******' 
BTCBD 



**c ?**•**** 

*SET OPP Si * 

• 1ST CTRL CD * 
• AFTER UPDATE * 

* CARD , * 
* *12 BIT 7 * 



TBS .* ART 

...*. PREVIOUS 

*. BRSORS 



•****£ f********** 

• POIRT BRKRBG8 * 

• TO LIBRARY * 

* DIRECTORY * 

* BRTRT ADDRESS * 



***« 



************ 



X 
***** 
•IB * 
* «3* 

* * 



.*. 

G1 *. 
.*SBQ.RO *. 
.* 'SBQ.BO *. HO 
*.0P LIST SRCE .*... 
* . STHiT .* 
*.* C2 .* 
*. .* 
* IBS 



*****B |********** 

* * 

* HOfB TBE * 

* SOORCB STHIT * 

* IRTO AREA * 

* -RECORD- * 
******.*********** 



THE BRARCH TO BBT06BT 
OILESS A MADD* FOLLOWS 
A »)DBL» OR •IRBQ* RITH 
THE SAHB SEQOEBCE ROHBBR. 



BRTOGET 

***D2************ 
GET IS 

*_*-*-*-*-*-*.*_* 

...I READ A RECORD 
* OF THE BOOK * 



***************** 



**$**p>2********** 
*CHRIHCR HR* 

*-*-*-*-*-*-*-♦-* •• 

* CHECK FOR * 

* SIGHT IMCR. * 

* DEFAULT * 
***************** 



.*. 


.*. 


C« *• 


C5 *. 


.* *. 


.* *. 


■O .* *A2 *. 


■O .* IS IT *. 


....*. RBSBQDBICIK .* 

*. §0 BB .* 


...*. A COITIOL •• 


*. CARD .* 


*.DOIB .* 


*. .* 


*. .* 


I *. .* 


* TBS 


***** • IBS 




•IB * 




* A1* 




• * 




• . 


m m 


HfSCBD 


X 


X 


*****D<|********** 


***D5***********i 


•OPDSEQ MS* 

*-*-*_$_*-*_*_*„* 


RTILIK If 


*-* -»•-♦-*»♦»»-» -* 


* RBSBQUBICB • 

* STAfSHBHT • 


PRUT TBB 


* IBCOID Ol * 


* IDHBBRS * 


SXSLST 
***************** 


***************** 


• * 


**•* z 




*IJ * 




* F5 *.X. 




* * 




**•* 


*****24********** 


CDSBQBR X 

*•*• *BS********** 


• BOTE IB! SEQ * 

* 10. AID HSG * 


* POXIT TO BSG * 

* a 30101 • 


* -RESBQOBICBD- * 
. .* TO OOTPOT * 


* STATBBIIT * 


* OOT OP * 


* AREA * 


• 5EO0BICE* * 
******$********«• 


***************** 


I .....x! 


• 




X 




***** 


. 


*IH • 


PRTSTAT X 


* J5* 


***F4***** ******* 


* • 


PRUT STAT KB BIT 


• * 


* PROH LIBRARY * 


BRSICB 


PIA SKIP BY 




* RODTIIE II ROOT 




PBA SB 





.♦COHPARB*. 
-♦RECORD SEO « 
. BO. TO CARD 
*. SEQ BO. .« 



.* 



10 



***** 

*HJ *O0TSBQ 

* 61* 



LDREG X 

*****H 2** ******** 

* LOAD ADDR OF * 

* -GET-, CHART * 
*LS, IB RRKRBS8 * 

* AS EXIT FROH * 

* -COHPRES RTM * 
***************** 



**** 

* * 

* H3 * 

* * 
**** 



*****)} 3********* * 

•DPDSEQ BS* 
*-*-*-*-*.*_*-*. * 

* PERFORB * 

* STATEHBBT * 

* RBSEQDEBCB * 
****** ********** * 



*.RBSBQ0BICIIG .*... 
*. TO BB .* 
*.DOIB .* 
*. .• 
♦ IBS 



*****B*********** 

• * 

• HOfB IEI SEQ • 

• 10. IITO ABBA * 

• -RBCORD+72 * 

• * 
***************** 



***J 1**** ******** 




J2 *. 


*****j3********* * 


PRBTRTR BY 




.* *. 


* HOfB BB1 * 


*-. *_* -*-*_ *-*-*-* 


.* 


*A2 *. BO 


* SEQ BO. IBTO * 


PRIRT II 


♦.RESBOO .*. .. 


* ARBA * 


* STATEHBBT OB * 


* 


. TO BB .* 


* -RBCORD+72 * 


SYSLST 




*.DOKE .* 


* * 


***********.****** 




*. .* 


***************** 


. 




* YES 


• 














X 

**** 


.......... .1. 


X 
**** 




* * 




• * 




* B5 * 




* H3 * 


LOADR X 


* * 




* * 


***** K 3** ******** 


**** 




**** 


* LOAD ADDR OF * 



•FOR RBTORB PROH* 
* -COHPRBS BTB * 
***************** 



*ig ♦ 

* 12* 
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Chart NH. MINTUP - Process ADD Control Statement (Part 2 of 2) 
Refer to Charts 4 4-46 



•••••a I****** 

• BOfB CAB© 

• IBABB AID 

• ACT BOB BOBO 

• -ABB- IBTO 

• I/O ABBA 

*000000000****0 I 



."T 



*A2 

-SBTCH1- BIT 1 
SBT OB FOB TBS. 



OOTFOT ABBA 



•••••B 00000000000 
•BOTB CARD IB ABB* 

• XBTO ABBA * 

• -BBC ORB- ABD * 

• SBT POIBTBR * 
PENCE BO.* 

********** 



***B3********* *** 
PRIBT TBB 
* RBCORD flA • 
SKXPBT ROOTIBB 
IB ROOT PHASB* 



SBQSBOO X 

•••••D !•*** •*•*** 

* BOTB ZBROS • 

* IBTO ART HI6fl * 

* OBDBR B Li IKS * 

* OF THB * 
•SBQOBBCB ROBBER* 
00*%** +0000000000 



00000E 0*00000000* 

•BOfB POOR DIGIT* 

• ID BO. TO BBB * 

• SOURCE STATE- * 
HBNT IT * 

*72- ^ 



*****C2********** 
♦CHKSEQ BR* 

*-*-*-*-*-*-*-*-* 

.X* CHECK SEQ.BO * 

* IB DSBR CODE * 

* COLS. 73-78 * 
•++*********0*0*** 


IBS 
...* 


C3 *. 

.• •. 

.* ERROR IR • 

.DSBR SBQOBBCB 

*. RORBSR .* 

*. .* 

*. .* 


X 

00000 




00000 

•MR * 
* KU* 

• • 
* 


* RO 


*NK * 
* G2* 




INCORSBQ 


X 
.*. 



.* MAS * 
.RBSBQOERCIMG 
*. DOHB .* 
*.* »2 .* 



*****g3*** ****** * 



* HOVE MBR * 

•SEQDBNCB BOBBER* 



• -RECORD* 7 



.* BBB SBO. *. TE 
*. BO. 6T LAST .*.. 



*0Q ft,****** 

•SBT SMITCH • 

•FOB BRROR IR * 

•RBCORD SBQOBBCB* 

* BOHBBR • 

* *C2 BIT 1 * 

0*0******** 



*G2 
-SMTCH2 
SEE NOTE *A3 
CHART MB FOR 
BIT HEARINGS. 



*****P3********* * 

♦COMPBES RQ* 
*-*_*-*-*-*-*-*-* 

* POT RBCORD IR * 

* COMPRESSED * 

* PORHAT * 
**************** * 

000* * 

*MG * 

* F1 *.X. 



• READ A RECORD* 
***************** 



*****n 1********** 



•SATE RBCORD SKQ» 
*MO. AT -SRCBO- * 

* AMD -SRCM01- * 

• • 
•***••****•****** 



. CIMG '__ 

*. DOME 

*.* A2 



*. .* 

* TBS 


X 

•*•* 

• • 

• B3 * 

• • 
**** 


00000% ft********* 

•OPDSBQ MS* 
*_*_*_ A-*-*-*.*-* 

* PBRPORB RE- * 

* SBOOBBCING * 

* OF ROBBERS * 
***************** 




X 

•••• 

• • 

• A3 * 

• • 
•«•• 





H3 *. 




.* IS IT ♦. 




.* A CONTROL *. IBS 




*. STATEMENT .*.... 




*. .* 




*. .* . 




*. .* X 




* mo •**• 




. • * 




* A1 • 




* * 




*•*♦ 




X 




.*. 




J3 *. 




.* *. 




.* AFTER *. NO 




*. ADD .*.... 




*. .* 




*. .* 




*. .* X 




* IBS ****• 




•MR • 




* D4* 




* * 




* 




SKPLINE 




X 


.*. 


***K3************ 


K4 *. 


GBT NS 


.* *. 


*-*-*-*-*-*-*_*-* 


..* SBQ. *. BO 
*. BOBBER .*.... 


READ X 


* A RECORD * 


*. HIGHER .• 


OP BOOK 


*. .♦ 


***************** 


*. .• X 




• IBS *•*** 




•BB • 




SRPLXBB. • K«* IHCORSBQ 




X • * 




***** • 




•BK * 




* D** 




• • 
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Chart NJ. MAINTUP -Proceee REP Control Statement (Part 1 of 2) 
Befer to Charts 44-46 



*ip * 

* D5* 



*****A2*** 

:2E*«g*. 



•B1 
-SBTCH3- 
SBB BOTB *B2 # 
CBABT IF, 



**B2******* 

♦SET OFF SB • 

FOB 1ST 



X 

.*- - * 

.* ART 

. PRE? 10 OS 
*. BBBOBS 



X 

***** 
*B? * 
* B1* 



•*C3******* 
•SIT SBITCJI * 

•COBTBOL CABD • 

• *B1 BIT 1 * 

*********** 



***D3********* *** 

6BT BS 

*-*-*-*_*-*_*-* -* 

BEAD A 
• BOOR BBCOBD * 






♦S!-* --*—!»• 



***B4************ 

FBXBT BBCOBD 
• BBXB6 • 

•$**••*•**** 



*****C4***** 



**C«*> 
SATE 

• REPLACED * 

• BBCOBD AT • 

♦ -JTBBCD- • 

* * 
***************** 



D* *. 

.•COBPABB*. 

LO .*BCD SBQ BO.*. HI 

...*. TO 2BD SBQ .*... 

•. BO. OB .• 

•.CABD .♦ 



♦ BQ 
**«* . 

•BS • 
* HI *.X. 



*****B2********** 
•CHRIHCB BS* 

*-.*-*.*-*_*-*-*-* 

• CHECK FOB 

• RIGHT XBCB. 

• DEPAOLT « 
***************** 



•X. 



***************** 



***• 
OOTSBQ 
**• 



**•**& 1********** 

~ "OUT TO HSG • 

•30101 • 

STATBBBBT * 

OOT OP 



***** 
•SB * 
• J5* 



F2 ♦. 

.♦COHPABE*. 

HI .•BBCOBD SEQ.*. LO 

...••BO. WITH CARD.*... 

*. SBQ BO. .* 

**. .*" 

• BQ 



***G2***** ******* 
PBMTBTB if 

*-*-*«-*-*-*-*-*-* 
PR I IT BBCOBD 
* BEIB6 • 

REPLACED 
***************** 



*****B2********** 

* SA7B THE * 

* REPLACED • 

* BBCOBD AT * 

* -STEBCD- * 

* * 
***************** 



*J1 
-SHTCH1- 
BIT2 SBT OH IF 
TBS. SBB BOTE 
*A2, CBABT HB 
FOB BIT 
HBABIBGS. 



J2 



*. 



TBS .• SBCOBD *. 
...*• SEQOBBCE BO .< 
•OB CORTROL.» 
•.CARD .• 
X •. .* 

**** * BO 



HBGLD 

***«*P3********* * 

• LOAD ADDB OF • 



63 •. 

.♦ „ *. 

.* *J1 *. 

•.BBSBQOBRCIBG . 

*. TO BB .• 

♦.DOME .* 

•. .• 

♦ TBS 



*****g 3********* * 

•OPDSBQ BS* 

•-*.*.*.*-*_*.•_ * 

• BBSBQOBBCB • 

• STATBBBBT • 

• HOHBBBS • 
**************** * 



*****J3********* * 

B BBB 
__. IBTO 

* ABBA 

* -BBCOBD+72 

*************! 



* B* • 

* • 
•••* 



IS IT •• IMS 

A COBTBOL .*.* X 

• CABD .* • 

*. .• 



• A4 * 


, 


.X....... 


* * 


X 




•*** 


•*** 






* * 






* E« * 


LDLBK X 




* * 


*****K 3********* * 




*•*• 


• LOAD ADDB OF • 



** ***Q 4********** 

• BOTE CARD • 

• IBAGB ABD • 

• -BBPLACBHBBT- • 

• TO PBIET • 

• OOTPOT ABBA • 
***************** 



•B6 • 

Vr 



•PS* •• IBS 

SPBCIFIBD .*.... 
.♦ 



*****B5********** 
♦CBKSEQ —^ 

.!• CHECK i__, 



•FOB BETOBB FBOB* 



*****J4****** 

• •BBCOBD* ABD • 
•SBT POIBTBB TO • 

• SBQOBBCB BO. • 
****B*********^** 



FBDBLBK X 

*****£***** 

• 10TB ZBBL- 

• IBTO ART BIBB • 

• OBDBB BLABKS • 

• OF_SEQOBBCB * 

******** 



•BB • 

vr 

BfSQ 



***** 



*! 



•COHPSBQ 



*BK • 

vr 
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Chart NK. MAXNTUP - Process REP Control Statement (Part 2 of 2) 
Refer to Charts 4 4-46 



m 3!8*A ********** 

• TO IB* SODld * 
***************** 



• • 
***• 


Blc *3***i4*** ******* 

ggy r. . . y; 

• m stktmmt • 

• XI COBFBBSSBD * 



.J. 

B1 *. 



.* 1ST *. 
.* SBCB STB *. 10 
•- AFTBI CTBL .*... 



•*C !•*•**•• 

•sn OFF SB * 

• 1ST SOOBCE * 

STB APTBB 

• COBTBOL STB * 
• *F1 * 

*********** 



D1 *. 
.*SBQ BO.*. 
.* 6T LIST *. BO 
• SB BOBBBB .*... 
• -PROCESSED.* 



CBPBBC .*. 

B2 *. 

.*SBQ BO.*. 

.* 6T LAST *. TBS 

...X*. SBQ BUBBBB .*... 

•.PROCESSED.* 

**. .** 

• BO 



SBQCRD X 

*+C2******* 
•SET SB FOB • 

• EBROB II • 
* SBQ BO. OF 

* CABDS * 
• *C3 BIT 1 * 

*********** 



**$**D2********** 



***B4***** ******* 
BEAD A 



*C3 
~5BTCB2~ 
SBB BOTB *A3. 
CBABT IB. FOB 
BIT BBABIIGS. 



•D3 
-SRTCB3- 
SBB BOTB *B3 
CHART IF. 



BBFBBBBCfS ♦*** 



IS IT *. BO 
A COBTBOL .*.... 

STB .* 
••- ^-* 

•*••• 
•BJ * 
* 6B* 



• TBS 



SRPUBB X 

**0«******* 
•SBT SB FOB * 



CBDBTB 



************ *** ** 



•PI 
-SBTCH3-. BIT 1 
OB IF FIRST STB. 



•****P2********** 

•OPDSBQ BS* 

*-*~*~X-» - * - » -»-* . 

* RBSBQV8BCB • 

* STATBBBBT • 

* IOBBBBS • 
***************** 



& 



?: 



•••• 



TS S, 



•••*62»******»** 

* BO¥B BBB * 

* SBQOEBCE 10. * 

* TO PBIIT * 

* OOTFUT AREA * 

* * 
***************** 






***B4*** ********* 
# BRBTI _ <r »T > 

SRIB A LIBB 
BBFOBB STB • 
PBIBT 



IIT TBB 
OBTBOL 
STB 



•IP * 



CDPBT X 

•••B2»***»*»***** 
PBIBT TBB 
* RECORD VIA * 
SKIPB? BOO TUB 
* IB BOOT PHASE* 
***************** 



.* VAS *. BO 

♦.BBSBOOBBCIBS .*... 
*. DOBB .* 



***** 

* BOTB BBB SBQ * 

* 10. TO IBB * 

• STATBBBBT . * 
*&T -BECOBD+72- • 

• • 
***************** 



.X... 

••>• 

• • 

• A4 * 

• • 
**** 



Program Organization 175 



Chart NL. MAINTOP - Process DEL Control Statement 
Refer to Charts 44-46 



***** 

• 15* 



****& $********* 

* * 

* PBBY&BL * 

* » 
*************** 



©CE8L I 

•****A2+**«** 
♦PHDXCXT 
*-*-*_*-.* 

♦CHECK SBO IO. # 
* BBTORH 01 IO 
ERRORS 




BOTE RBCOBD 

AMD "DELETE* 

TO PBIBT 

OOTPOT ABBA 



***C t************ 
PBIBT THE 
♦DBLBTED BECOBD * 
Til SKIPRV 
• BOOT IBB IB HOOT 
PHASE 
**•* *** ********** 



♦SET OFF SB * 

* FOB 1ST ♦ 
COBTBOL STB 

* ♦B* BIT 7 * 

*********** 



AB¥ 

PBEVIOOS 
. BBROBS 



g: sp^SbSf* ■»• 



_ BO. TO 2B0 
♦.SEQ. BO. 



*. BQ 



LSI DEL 

***C«***** ******* 

*3!I?5!w-*-*£. 

...I PBIBT TBB 



**** 



BBCOB 



****D f»******** 

* BBTOBB TO * 

* CALLIHG * 

* ^SBOTBHCR * 
*************** 



***]> 2***** ******* 
GET US 

*„*_*_*_*.„*_*_*_* 

READ A 
• BOOK BECOBD * 

***************** 



I 

***** 
•BF ♦ 
• H3« 



PBIBT THE 
* DELETED • 

BECOBD 
***************** 



***♦ 

* • 

♦ A3 ♦ 



*****P2********** 
♦CHKIHCR MR* 

*_*_*-.*_*_*-.*_*_*. 

* CHECK FOB * 

* BIGHT IBCH. * 

* DEFAULT * 

***************** 



***** 
*HJ * 
* G1* 



G2 ♦. 

.♦COMPARE^. 

.♦BECOBD SBO * 

-MO. TO CARD 

*. SEQ.M. .* 

*- .♦ 

►. .♦ 



*****B2********** 

* SA?E THE * 

* LIBRARY BOOK * 

* RECORD AT • 

* •SVERCD" * 

* • 
***************** 



***j 2** ********** 
PRHTDEL RL 

*_*-*-*_*_*-*-*_* 

BRUIT THE 
* DELETED * 

RECORD 
***************** 



BGSTLD 

*****P3* ******** * 

* LOAD ADDRBSS * 

* OF •GET' IB * 
..X* BBKBBG3 FOB * 

* EXIT PBOH * 
♦COHPRBS BOO TIME* 
***************** 



DOBE 

-♦ 
*. .* 
* IBS 



*****H3********* * 

♦OPDSEQ BS* 
*-*.*„*-*-*-*-*_* 

* BESEQOBBCE * 

* STATEREHT ♦ 

* BOBBEBS * 
**************** * 



*****J3********** 

* BOTE IE1 * 

* SBQOBBCB * 

* BDHBBB IBTO • 

* ABBA * 

* *BEC0BD+72* * 
***************** 



DELSTMT .* . 






X 


K2 *. 




*****K 3* ********* 


.♦SECOND ♦. 




• 


LOAD ADDS. OP * 


.♦ SEQ. HO. ♦. 
♦ .OH COHTROL .< 


TBS 


* 


•RCDSBQ* IB ♦ 
LNKBEG2 FOB ♦ 


*.... 


* 


♦. STtt .♦ 




* 


EXIT PBOH ♦ 


♦. .♦ 




♦GET SVBBOOTIBE ♦ 
***************** 


♦. .♦ 


X 


♦ HO 


**** 








* * 






.BEADRTB 


♦ A3 ♦ 




.COHPBBS .. 


X 


* * 




X 


***** 


**** 




***** 


♦HF ♦ 






♦RQ ♦ 
* B2* 


♦ H3^ 
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Chart NM. MAINTUP - Process END Control Statement (Part 1 of 3) 
Refer to Charts 44-46 



PBOCBBD I 

*****£ t***» ****** 

• POINT PAST • 
•OP EMTIO! FIELD* 

• AID CALCULATE * 

• REBAIBIBG * 
♦LENGTH OP BBC. * 
****** *********** 



•12 

-SHTCB2- 
SEE MOTE *A3. 
CHUT IB, FOB 
BIT HEARINGS. 



• GET POIBTBI * 

• TO OPBBABD • 

• DBLEHITBB * 

***************** 



**g I******* 
• SET 01 SI* 

• •)?*>• CARD * 
* ALREADY POUND 

♦ *A2 BIT ♦ 



.♦. 



C1 

AIT 

JBABDI 
OB STB 



**D1******* 
• SBT SI TO * 

* INDICATE * 
PBOCESSIBG 

• •BID* STB * 
•*B2 BIT 1 * 

*********** 



w* **B 1********** 

• SAVE PTB TO * 

• OPBBABD ABD • 
•CALC BEBAIBIBG * 

• LBBSTH OP * 
RECORD 



*B2 
-SHTCH1- 
SEB BOTB *A2, 
CHART MB. FOR 
BIT BEARINGS. 



.X. 



PSTBMT .». 

D2 *. 

.♦IS THIS*. 

TES .*THE 1ST CTL*. 

...*. STB AFTER .* 

*. UPDATE .* 

*. STH .* 



**** 



* BO 



TBEBE A *. 


TBS .* 2BD 


2BD .* 


...*. OPBBABD 


OPBBABD .* 


*. 999999 


». .* 


*. 


*. .* 


X *. .* 


* IBS 


***** * bi 




•MS * 


• 


* B4* 



*B5 

THIS SEQUENCE RESULTS IB 
BEADING THE BEST OP THE 
BOOK. BACH RECORD IS 
BBCOHPBBSSBD IBTO A 
LIBBARI OUTPUT BLOCK J ABD 
BRITTEN BHBB THE BLOCK IS 
FULL) IB TBE -COBPRBS- 
BOUTIHE. RETUBHIBG TO 
-BDBK (BLOCK A*l TO BEAD 
ABOTHBR RBCOBD UNTIL THE 
•END* STATBR8HT IS BEAD 
BT THE -GET- SUBBOUTIBB. 



.*. 

C3 *. 

.* IS *. 

IT THE 

CHABACTBR 



*****D3********* * 

* * 

* POIMT TO BSG * 
♦•30211 IBfALID * 

* OPERAND* ♦ 

* * 
***************** 



RBAD A RECORD 
OP BOOK * 
♦B5 



*. SPECIFIED .*. 



*****D5********** 

•CHKIHCB HR* 
*-*-*-*-*-*-*-*-* 

.X* CHECK POR * 

• RIGHT IBCB. * 

* DEFAULT 



PBIMT THE 
♦ BESSAGB OR * 
SXSLST 
***************** 



•SAVE POIBTBR TO* 

* BODIPICATIOH • 

* LEVEL * 

* * 
***************** 



PI *. 

.* BLABK * 
► OR COBHA 
FOLLOWS 
*. OPERAND 



*****6 I********** 

* INCREBENT * 

* POINTER TO * 

* NEXT * 

* CHARACTER ♦ 

* * 
***************** 



LENGTH 

*****G 2** ******** 
♦SAVE POINTER TO^ 

♦ DELIMITER, ♦ 

♦ CALC LENGTH ♦ 

♦ OP OPERAND ♦ 

♦ AND SAVE ♦ 
***************** 



***** 
♦NE * 
♦ C1* 



ORSNCH X 

**G3******* 

♦SBT CHANGE ♦ 

♦ LEVEL VEHI- 

♦ PICATION BIT 

♦OH. -VBRHOD, 

♦ BIT - 1 ♦ 

*********** 



.♦ 
.* 
TES 



•*** 
CHLVERR X 

*****j 1********** 

* * 

♦ POINT TO HSG ♦ 
••3U21I INVALID ♦ 

• OPERAND' ♦ 

* * 
***************** 



***K |************ 
BERTH NY 
*-.*_* -*_*_*-*_*_* 

PRINT BSG 
• ON STSLST ♦ 



SBTSNCH X 

**H3******* 
♦ SET OR SB ♦ 

♦ OPERAND ON 
* -END- CARD 

* *J2 BIT ' 



*****F5********** 

• POIBT HRKRBG8 • 

• TO ADDRESS OP • 

• »B DBA* POR • 

• EXIT PROH • 
•■COHPRBS* RTH. • 
***************** 



*****H5********** 
•UPDSBQ HS* 

*—*—*—* * t t t t 

• RESBQOBNCE • 

STAfj 



♦J2 
-SHTCH3- 
SEE NOTE *B1, 
CHART NP. FOR 
BIT HEARINGS. 



* * 


***• 




• BUHBBBS • 


*********** 


* * 




***************** 


. 


• J* • 




. 




• ♦ 






. 


**** 




• 


• 


• 




• 


X 


X 




" 


.♦. 


TSTOPDS .*. 




X 


J3 ♦. 


J* *- 




*****J5********** 


.♦ 1ST ♦. 


.* ANT ♦. 




• * 


♦ CONTROL •. IBS 


.•OPERAND (S) *. 
...X*. ON UPDATE .* 
♦. STH .♦ 


BO 


* BOTB HEB * 


STB APTEB ....... 

*. UPDATE .♦ 


.... 


•SEQUENCE HUHBER* 
•TO "RECORD ♦72* * 


♦. STH .♦ 


*. .* 




♦ * 


♦. .♦ 


*. .* 


X 


***************** 


♦ HO 


* IBS 


***** 


, 






*BB * 








* A1* 








* * 


X 






. • 


***** 






BTHAIBT 


*BQ • 
* B2* 




X 






**K4******* 




* * 




*SET OFF SB * 




• 




♦ 1ST CONTROL • 




COHPBBS 




* STH * 






. 


♦ *J2 BIT 7 * 







*********** 



Program Organization 177 



P" Chart NB. 



s^ssr- 



MAINTOP - Process END Control Statement (Part 2 of 3) 
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•**« 

• '■ • 



A3 



•* JII 


"•. 


IBS 


. PREVIOUS 






*. BBBOBS 


.* 




*. .» 






*. .* 




I 


• 10 




***** 






*HP * 


; 




* D3* 
* * 



mi 



*****B |********** 

* POUT HBKBBG8 * 

• TO DIBBCTOBT * 

• BIB! IH THE * 

* BLOCK * 

***************** 



**C1* ****** 
•SET OFF SB * 
* HE ID* CUD * 
* ALBBA1 



OB BED 

♦. .* 

• TBS 



*****B3********* * 
• BOTE CHANGE * 



**************** * 



**** : 
• * .i. 

* C3 «.X. 



.* TBBFOBBBT *. 
•• OPDATB 
*.BBQOXBBD^.* 

**. .•" 

* BO 



*C2 
-SHTCH2- 
SBB NOTE *A3, 

CHART BB, FOB 
BIT BEAMINGS. 



•****D **** ******* 

* HOfB LIB DIB * 

♦ BLOCK TO * 

• -LIB DIB- AND * 

* ADDS OF BLOCK * 

• TO I/O TABLE • 
***************** 



C3 *. 

-* *4 

.* TBBPOBABI ' 

BABE 

•.BBQUIBBD - 

*. .* 

♦. .♦ 

* IBS 



*****]> 3********* * 
•HOVE TBHPOBABI * 

* BABE TO OLD • 

* DIBBCTOBT • 

* BHTBT * 

* ■ ' ■ * 
**************** * 



* LOAD CBAB •§• • 

* IBTO PBHBB62. * 

* POUT PBHBBGS * 

: %ga.m : 

***************** 



** ***C4********** 
*BBFLBCT DBLBTBD* 
*BBTRT IB DESCB.* 
•BBCOBD f. DOOLD* 
♦BOOTIES IB BOOT* 
PBASB 



CBA1ACTBB a S* : 

L0AD8D IBTO PA1 

8B6XSTBB TO BMSOBH 
TBAT BAIBT BODDLB 
B|PLBCT| DBLBTIOB 

LIBBABX. 



BHBHTB X 

*****D4********** 

* POUT TO OLD • 

* DIBBCTOBX * 

* EITBI ADDBESS * 

* IB COBB * 

* * 
***************** 



El' *. 

.* 1ST *. 
•• CONTROL *. BO 
». CABD AFTBB .*... 

♦ . OPDATB .* 

*. STH .* 

*. .* 

" * f IBS 



*****g2********** 

* BLANK OOT * 

* OLD' LIBBABX * 
.X* DIRECTOR! * 

* BHTBT * 
, * * 

***************** 



OPDTBHT X 

*****g3********* * 

* POIBT PBBBB61 * 

* TO I/O TABLE * 

* FOB DISK • 

* iBITB * 

* * 
** **** ********** * 



.* *. 
.* BLOCK *. IBS 
. CODHT * .*.... 

*. .♦ 



***** 
•■P * 
* J1* 

* • 



F1 *. 






. ■ * ,. * 


.•CHANGE *. 






**** 


.• LEVEL •. 


NO 






*. OPBBAND OH . 


*.... 






*. OPDATB -• 








*. STM .* 








*. .* 


X 






* TBS 


**** 




* 


* 


* 






* A3 


* 






* 


* 






**** 




X 








-••• 




IHSCI 


61 *- 






*****62********** 


.* *. 






* INCRBHBHT * 


.* HOD M +. 


MO, 




* MODIFICATION • 


*. LB? EL * 255 . 


*..i.. 




X* LEVEL BI 1 * 
* AND STOBE * 


*. .* 






*. .* 






* * 


*. .* 






***************** 


* TBS 






. 
























X 








**•* 


X , 






* * 


.*. 






* A3 * 


HI *. 






,, * * 


.* ♦. 






' **** 


.* VERSION *. 


TBS 






• .HUBBBR » 127 . 


*•••••••••••*■•'•■» .*f i . 



***P3********* *** 
HTDATENT EL 
*-*-*-*.*_*-«.* _* 

BBITB OPDATBD 
* OLD DIBBCTOBT ♦ 

***************** 



63 *. 
.* 1ST ** 
.* CTBL CARD *. TBS 
.AFTBB UPDATE ...... 

• . STH .* 
*. .* 



HO 



***** 
•MP * 
* D3* 



*****B3********* * 

* POINT HRKBB68 * 

* TO LIBBABT * 

* DIBBCTOBT • 

* BHTBT ♦ 

* • 
***************** 



**** *P4**« ******* 

* BOTE OLD LIB * 
*DIBECTOBT BHTBT* 

* TO NBH DIB * 

* BHTBT ABBA .* 

* • 
***************** 



****«G4*** ******* 

* BOTE OLD BOOK * 

* BABE AMD * 

* STARTING ADDB • 

* TO BBM LIB * 
•DIBBCTOBX ABBA • 
***************** 



•****H *********** 

* BOTB BLOCK * 

* CODHT TO * 

* DIBBCTOBT • 

* EBTBT * 

~ 4*11* * 



*****J l********** 

* IHCBBMEHT * 

* VERSION * 

* MOHBEB BT 1 * 

* AMD STOBE * 

* * 
***************** 



• CHAM6E * 

* VERSION NO. * 

• TO * 

* * 
***************** 



CLBHOD I 

*****K2********** 

* CHANGE * 

* HODIFICATIOM * 

* LEVEL TO * 

* • 

* * 
***************** 



DDR OF NEXT * 
« AVAILABLE * 
* LIBBABT BHTBT * 
***************** 



*****K3********** 
« POINT PBHBBG4 • 

* TO STSTBB • 

* DIBBCTOBT * 

* BHTBT * 



•IP • 



***** 

♦ 8QVB B» • 

• CHAHGB LEVEL • 

• TO DIBBCTOBX • 

* BHTBT ABBA * 



* A3 * 

* * 
**** 



* A« * 

* * 
*•** 



•BP • 

* 61* 

* * 
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I 



ii *. 

-•CHANGE *. 

.* LEVEL TO *. 

BB 

*. UPDATED .* 

*. .* 

•. .* 



•BOPFBB ABBA 

•SET POUTER TO 

l******** ******** I 



• SIT SBITCB 
• IT -BOP- 

• TO BOB 



.*. ADDBOD 

B1 *. *****b2********** 

.* *. • UPDATE HOD * 

.♦ HOD *. BO * LEVEL BI 1 * 

*. LEVEL * 255 .* X* IBD STORE AT • 

•. .* * NEW DIRECTORY • 

*. -* * EHTRI AREA * 

*. .* ***************** 
* IBS 



*****B3********** 



*****B4*** ******* 
•SET LIBB COOBT • 

* Ii -El ST AIT, * 

* TO CAD SB * 

* SKIP TO • 

* IBM PAGE 



AT -FNORD- 
***************** 



• HAX *. TBS 
VBBSIOH BO. .*.... 

• . REACHED .* 



X 


iRAPARD X 


*****£ ft********* 


*****B2********** 


•UPDATE VEBSIOE * 
• BOHBBB BT 1 * 


•CHANGE VERSION * 


* HUHBEH TO * 


• ABD STOBE IB * 


* ZERO IN * 


• DIBBCTOBT * 


* DI RECTOR T * 


* EBTBT ABBA * 


* ENTRY * 


***************** 

Ii. ......... 


***************** 


BBBOBOD X 




*****p i********** 




• CHAB6B BOD * 




* LEVEL TO * 




• ZBBO IN * 




• DIBBCTOBT * 




*** ••* ***• ******* 




**** I 




* * . 




* 61 *JL. 




* * . 


***** 


**** 


•BB * 


LOADBS X 

*****6 f********** 


* R«* 


* * 


* LOAD CBAB «S» • 


• 


• IBTO PBHBBG2. * 

• POIHT PRNRBG3 *!.. 






• TO EBB DIB. * 

• EBTBT *H2 * 






***************** 




I 


*B2 




CHARACTER «S» IN 




PRHBE62 ENSURES THAT 


X 


HAIHT RODULE REFLECTS 


***H t************ 


CHANGE FOR THE 


HBXTB BBB DIB 


SOURCE STATEMENT 


• EBTBT VIA * 


LIBRABY. 



***C3********* *** 
HBITB DPDATBD 
• DBSCBIPTOR • 
RECORD flA 

* NTDATBHT BTN * 
IB ROOT PHASE 

***************** 

5T"iSIf.... : 
S»3: SSI * v-x: 

RBT0RN2 X 

*****03********** 

* * 

* SET POINTER * 

* TO -HAIHT- * 

* INPUT BDFPBR * 

* * 
**************** * 



*• ***B 3*** **** ** ♦ 

* SET BUFFER * 

* POINTER FOR * 

* 80 OR 81 * 

* BITE * 
RBCOBD 



*****C4********** 

• LOAD LBKBBG1 • 

• BITH ADDR OF • 

• -HETBBTB FOB * 

• EXIT PBOfl • 

• -CSSTABT- * 
***************** 



****D<I********* 

• BBANCB * 

* TO • 



#' ; v : S 



I ^' 



.* SEOO 

*. SB) 

• . 



♦ SKIP A LINE • 
***************** 



.* CONFLICT 
*. AFTEB 
*. END 



POINT TO 



**** 
UPSTSD X 

*****j )**** ****** 

* BOVB STABTIBG * 

* ADD BBSS OF * 

* DBSCBIPTOR * 

* RBCOBD TO I/O * 

* TABLB * 
***************** 



***K ft ********** * 
BBAD IB THE 
* SI ST EH DIR » 
¥IA RDEBT 
* ROOT IBB IN ROOT 
PHASE BT 
***************** 



-SNTCH1- 

BIT SET ON (-1) 



** ***H 3******* ** * 

* * 

* POINT TO * 

* HESSA6B * 

* «3U21I» * 

* * 
***************** 



* * . 

* J3 *.X. 

* • . 
**** . 

NTHSG X 

***J 3*** ****** *** 
BBBTB 



*************** ** 



**K3******* 

* • 
SET OFF 

BBBOB 
SNITCH 

* • 
*********** 



H« •. 
.* •. 

.♦ DBFADLT *. HO 

VALOB ...... 

• .INCORRECT.* 
*. .♦ 

••-•!- .1. 



••* * ••• ******** * * 



.A. 

•*?• „ •-IBS 

SPBCIFIBD .*... 



•• HAS • • TBSX 

♦.RBSRQUBNCIBC .*.... 

*. DONE .* i 



• TBS 



* B5 * 

• • 
••** 



*****J4*********i 

POINT Tl 
HESSAG 



POINT TO 
HBSSAGB 
•30321* 



X 
POIBT 



• * 

• J3 * 



* A« * 

* * 
**** 
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* * 

* COHPBBS * 

* * 
*************** 



*• •***•******•* 



**************** 



**** ■-. 
COHPBES X 

*****B 2** •**+*•*• 

* LOAD 1DDB OF * 

* -BRA I 2- * 

* INTO HBRBEG3 * 

* FOB BRiHCH, * 



~SK 



*****C2********** 
♦SET POINTERS TO* 

♦ BLOCK, BLOCK * 

♦ BITE COONTBB, * 
» RECORD AND ♦ 

♦ END OF RECORD ♦ 
***************** 



*****C5*******«** 

• SET NRKREOS * 

• NITH ADDB TO • 
X*STOF SCAN mo* 

• BAX OF 15 • 

• CHARS CHECKED * 
•— •—-- — -- -■— •"—— — •*•** 



*****!> 2********** 

♦ NOTE CHAR * 

♦ BLANK INTO ♦ 

♦ BITE AFTER * 

♦ CARD IMAGE * 

♦ COL 80 * 
***************** 



♦ P5 * 
**** 

LDADRBS 

*****D4**« ******* 

* INCRBHBNT * 

* SCAN POINTER ♦ 

* TO NEXT *X. 

* CHARACTER * 



**** x 
CBPBLIK .*. 
D5 * 



E2 *. 




*****R3********** 




B« 


♦. 


*****g5********«* 


.* ♦. 




* REPLACE 


♦ 




.♦ 


*. 


♦ * 


.* COL 80 * 


. IBS 


* BLANK NITH 


• 


NO . 


• END OF *. 


♦ LOAD SCAN * 


♦ * CHAR A 


.*.... 


....X* A ZBBO TO 


* 


...♦. 


SCAN 


FIELD .* 


* POINTER INTO * 

• tRKRBGS * 


♦ . BLANK .* 




* STOP SCAN 


• 




*. 


.♦ 


*. .* 




* 


• 




*. 


.* 


* * 


*. .*. 




***************** 


X 


♦ . -♦ 


***************** 


* NO 








**** 




• TBS 




**** 








* * 






•**• . 


*NR * 








* D5 ♦ 






• * . 


* F2 *.X. 








* • 




X 


• F5 ••X.' 


* * .X..... 








**** 


*♦** 

• * 


* * . 


**** 






•*** 


SCNCARD X 










* 


F5 ♦ 


BLNFLG X 


*****?2********** 








* 


* 


*****P5********** 


* SET WRKREGS 


• 








**** 


* CALC HO. OF • 


* NITH ADDR TO 


*•• 












• BLANKS AND • 


♦STOP SCAN AFTE 
* HAX OF 15 


a* 












• STORK IB BITS • 
*4~7 OF SCRATCH ♦ 


• 












* CHARS CHECKED 


* 












* ABBA * 


***************** 












***************** 


**** I 














• 


* * . 














2 


* G2 ♦ .!. 
















* * 
















**** x 
















CPBLMK .♦. 




LADBESS 










X 


G2 ♦ . 




*****G3********** 








**** *65********** 


.♦ *. 
-* IS * 


. NO 


* IHCBENBNT 

♦ SCAN POINTER 


* 
* 








* XBCBBH1HT • 

♦ COBPBBSSBD * 


♦ . CHARACTER 


.* 


...X* TO NEXT 


* 








* CABD ADDR BT * 


*. A BLANK .* 




♦ CHARACTER 


* 








* LBBGTH OF * 



****** ********** • 



*****£ 2********** 

* * 

* LOAD SCAN * 

* POINTER INTO * 

* NBKBE65 * 

* * 
***************** 



END 


*. 


NO 






OF SCAN 




♦ „„ 






FIELD 


.* 








»- .* 










♦. .♦ 






X 




* IBS 




**** 






* 




* 


. 




* 


62 


» 



*«*««g 

* * 

• OPDATB THE * 

♦ BLOCK BITE * 

♦ CODBT * 



BLPLG X 

*****J2********** 
* CALCULATE * 



***************** 



***** J ********* ** 

OAD ADDR r - 

-OPADDR- 

* INTO »* 

* HRKBEG3 FOB * 

* BRANCH * 
***************** 



X 
.♦. 

J5 *. 
.* FULL *. 
IBS .♦ BLOCK *. 
...... J6T 158 .♦ 



*****g £*♦*** ***** 

* NOfE NO. OP * 

* NONBLANKS * 

* TO BITS 0-3 * 

* OF SCRATCH * 

* AREA * 
***************** 



.* ♦. 

* * 

POLL BLOCK 



* IBS 

A1« BBAB2 I OPADDft 
• ***** 
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%v 



*****! J********** 

• bote ♦ 

• cohphbssbd • 

• FIELD TO * 



rauu i 

*****A a********* * 



****A**** ****** 
• CMSBQ • 



PROCESSED! 

I*********** 



MM( f»********* 

naa m * 

•LOCK POIRB • 

Bf LBHGTH OP * 

BOBBLAHK ♦ 

PI ELD ♦ 1 * 



*****B3********* * 



X 
CHBSBQ .*. 

B« ♦. 

.* OSBB *. 
.* SBQOBHCB ' 

♦ . .♦ 

*- .♦ 
* TBS 



*****C f»********* 



•**•***••****•*•* 



•** **D ***** ****** 

* IE SET POUTER * 

♦ TO BBGIHRIHG * 

* OF SCRATCH * 

• AREA * 

• * 
***************** 



♦MO * 
* K5* 



***************** 



*****D 3* ********* 

* • 

* BESET BLOCK * 

* POINTER. GET • 

* LENGTH OP * 



*****£ 3********** 

* * 

* BESET POIMTBB * 
♦TO SCBATCH ABBA* 
♦AHD ROTE EXTRA * 
♦FIELD TO BLOCK * 
***************** 



.♦ ILL *. BO 

DBCIBAL .♦... 
♦ . DIGITS .♦ 

*. .♦ 



D* ♦. 

.♦ ♦. 

.♦ OUT ♦ . 

OP 

♦.SBQOBBCB .* 



♦ IBS 
'.I.... 



**** ********** *** 



**** *D5********* 

* HOfB ♦♦ TO 

* COL. 79-80 

* BODIFY 

* MESSAGE 

* • 303 II* 



•*E4******* 

* * 

• SBT SWITCH 
♦ IBDICATIBG 

• EBBOB 

* • 
*********** 



******** 



* POT THIS SBQ 

* HO AS 

* PEBTIOOS 



♦HO * 
♦ 12* 



*****Q2********** 

♦ SBT END OF ♦ 

♦ BLOCK BITE ♦ 

♦ IH SCBATCH ♦ 

♦ ABBA = X«00» * 

♦ * 
***************** 



*****P3********* * 

♦ SATE BLOCK ♦ 

♦ POIHTBB AID ♦ 

♦ BLOCK CO0IT, ♦ 

♦ BBSTOBB ♦ 

♦ LMKBBG2 ♦ 
**************** * 



****G 3********* 

♦ BBTOBH VIA ♦ 

♦ HRKRBG8 ♦ 

♦ * 
*************** 



****f4*** ****** 

♦ BBTOBB TO ♦ 
♦CALLING ROOTINE^ 

* * 
*************** 



****G<»********* 



*************** 



♦G5 
DBFAOLI IHCBBBBHT 
TALOE « 1. IF 

it bbsolts ih o0t- 
of-sbqoehcb, it is 
ihcorrbct. 



****•]{ 2********** 

♦ CALCOLATE ♦ 

♦ BBHAIIIMG • 

♦ COMPRESSED ♦ 

♦ FIELD LENGTH • 

♦ AND SATE ♦ 
***************** 



J2 ♦. 

.* ♦. 

• BLOCK ♦ 

POLL 





X 




CHKIHCB 


.♦. 

HI *. 






♦ ♦ 




.* 


DBFAOLT 


♦ 


♦. 


TALOE 




*. 


CORRECT 

♦. ♦GS .♦ 

♦. .♦ 


.* 



** ***j 3* ******** * 

♦ SATE PTR TO ♦ 

♦ MBIT BITE II ♦ 
.!♦ BLOCK TO BE ♦ 

♦PROCESSED, SATE* 
♦BLK BITE COONT ♦ 
**************** * 



.* BBSOLT ♦. HO 
♦- IH OOT-OF .♦... 
*. SBQOBHCB .♦ 



****H5********* 

♦ BBTOBB TO ♦ 
.!♦ CALLING ♦ 

♦ BOOTIHB ♦ 
*************** 



REFERENCES ♦♦*♦ 



BBBCB 

TO RBK*: - 
HHC3, NHKH^ 



♦ ♦ .!. 



****K 3********* 

♦ BBTOBH TIA « 

♦ BBKKBG8 ♦ 

♦ *HH ♦ 
* ** ** ****** ** ** 



COB SBQ X 
*****K (|********** 

♦ * 

♦ POIHT TO ♦ 

♦ HBSSAGB ♦. 

♦ •30321" ♦ 

♦ * 
***************** 



.♦ ♦ 

BED CARD 



.♦BBT0BH2: 



♦ HO 

Ibbsbcb 

***** 
♦HH ♦ 
♦ «♦ 

' • • 



♦BJf • 

vr 
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Chart NS. MltfTUP - Subroutines (Part 3 of 6) 
Hefer to Charts 44-46 



***** ********** 



*************** 



.* GET 

*. PBBPIO0SLX 
*. ISSUED .< 



*A2 

ALSO BXPABDS 
THE BBCOBD TO 
CARD IHAGB 
POBBAT. 



*TBST I 



' BADB ABO 

BBAHCH DETERMINED 
IB -BOOK- 
ROUTINE. 



****B2********* 

* BBTUBB TO * 

* CALLIBG ♦ 

* BOOTINE * 
*************** 



*• BBITB .* 



* SET BBD OP 
..I* DBLIHITBB 
. * « I • 00OO« 



X 


BKRTPND 


G BBSS 7 


***C4*********** 


***C 1************ 


*****C2********** 


*****C3********* ♦ 


BOOK +12 HZ 


* * 


* * 


■TBLOCK BO 


»..»-*-*-*..♦-»-»-» 


* BOOK MA HE * 


* POIBTBB * 


*-*-*-*-*-*-*-*-* 


BEAD A BOOK . 


....X* TO BBBOR *.. 


. .....X* TO EBROB *.... 


BBITB OUT 


• BBCOBD * 


* HSG * 


* BBSSA6B * 


* TBB BLOCK • 


*A2 


* * 


* * 




***************** 


***************** 


***************** x 


***************** 






***** 








•MP * 








* B5* 








*D3 * * 


X 






-SMITCH3- * 


***** 


X 




SEE MOTE *A3 BBBTM 


*BB • 


»*• . 




CHABT HP. 


* A1* 


D1 *. 


*****D2********** 




* * 


.* *. 


* * 




♦ 


.* *. BO . 


* SAVE 4 -CHAR • 




BTBAIBT 


*. BOOK PODHD .*.... 


...X* ID NOBBEB * 






*. .* 


* PHOB RECORD * 







^**»*A5< 
* BPDSRQ • 

*************** 



***§5****' 
BT LAST SATED 
SBQ BO. ABD 

*****< 



.* 



B1 *. 

* *. 

BBD *. BO 

OP BOOK .*... 
.* 



X 

> BBD *. 
CABD ' 

ALBBADf 
• • POOBD .< 
*. .* 

*. .* 
* TBS 



***************** 



.* CHECK 
*. SEQUENCE 
*. *D3 
*. .* 



P2 *. 

.* LAST *. 

.* SBO MO. *. 

. LT SEQ BO. . 

*. OP THIS .* 

*. BCD .* 

*. .* 

* PES 



****B3********* 

* BBTOBM TO * 
.X* CALLING * 

* HOOTIMB * 
*************** 



**P3******* 

* S EI ON * 

* SEpOBBCB 
.X* BBBOB 

* SWITCH 

* *G3 ♦ 
*********** 



*****cs********** 

* HOPE COHPLBTB • 

: ^ssfc-Si. 10 : 

• PIBD BBXT * 
***************** 



J5 ' 



**B5******** 

CLBAB 
SBQOBBCB 
* BO. SBGISTBB 
-O BET" 



TS 5*V 



* *r 5********* * 

* 

SAPE BEN 

ssoo: 

B0BJ 



G1 

.* 

OPBBi 



* B4 * 

* * 
**•* 

BBBACK 



2BD 
-JBAMD ■ 
999999 



.*. 

HI *. 

.* *. 

.* BABDLIBG *. 

*. BBP STB . 

*. .* 

*. .* 

*. .* 

* BO 



**** 

* * 

* A4 * 

* * 
***♦ 



*BJ * 

* G1* 

* * 



X 

***** 

*NJ * 

* E4* 

• * 



**G2******* 

* * 
* SET OPP * 

* SEQUENCE * 

♦CHECK SNITCH * 

* *G3 * 
*********** 



****H2********* 

• BETOBN TO * 

• CALLING * 



*G3 
-SHTCH2- 
BIT 1 * 1 
SEE MOTE A3, 



**» *65*** ****** 
BODTXBB 
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Chart NT. HAINTUP - Subroutines (Part 4 of 6) 
Refer to Charts 44-46 



****a ?********* 

* * 

* GBTC8D * 



•++•1 3********* 



••** 

* * . 

* B1 *.X. 



BBAD A BBCOBD 
* * 

***************** 



*B2 

RBTOBB IS 
LBKBEG1 ♦ « 
IF BOOK BABE 
FOOBD. 



DBTSCH1 X 

*§***B 3********* * 



• TO PABAMBTBB 

* LIST AID I/O 



**************** * 



• BESTOBE 
*OPBBAID LBBGTH 

• BBGISTBB 



*****C 1********** 

* * 

* SET POIBTBB * 

* TO HAIIT * 

* IBB DT ABBA * 



•****C 3*** ****** * 

* * 

* SAfB OPBBABO • 

• LBBGTH • 
•BBGISTBB (B12) • 

♦ * 
***************** 



*****C4********** 

* HOFE ADDRESS * 

* OF BBXT * 

* AFAILABLE * 

* BBCOBD IBTO * 

* I/O TABLE * 
***************** 



*****C5********** 

* BOfB STSTBB * 

* DIB ADDB IBTO • 

* IOTABLE AID * 

* SET POIBTBB * 

* TO IOTABLE * 
**** ************* 



81 

BTTB 
BBCOBD 



*****D2********** 

* * 

* BESBT BOFPEB * 
.X* PBTB FOB 81 * 

* BTTB RECORD * 

***************** 



***D3********* *** 
SCAB DIBBCTOBI 
• FOB BOOK BABB * 
VIA DSSTABT 
* BOOTIBB IB BOOT 
PHASE 
***************** 



*****D5********** 
« • 

•SAFE OPBBABD * 

* LBBGTH * 

* BBGISTBB • 

* * 
***************** 



PABBBFD X 

*****B1********** 

* LOAD ADDB ESS * 
♦1ST BITE IBPOT * 
•ABBA IBTO BBG12* 

* ABD LIST BTTB * 

* IBTO BEG 10 * 
*** *** **** * ****** 

**** * 

* * . 

* F1 *.X. 

* * 
*••* X 

BLBKCBB .*. 

F1 *. 
.* IS *. 
.* CHARACTER *. TBS 



B3 *. 

* BOOK 

BABB 
FOOBD 
*B2 

*- .' 

*. .* 



*- BO * 3H33x, 

.* X*-X.XXIXXXXX BOT* 

.* * IB LIBBART * 

* ♦ 

***************** 



***B5************ 

SCAB DIBBCTOBI 

* FOB BOOK BABB * 

VIA DSSTABT 

* BOOTIBB IB BOOT 

PBASB 



BLABK .* 

.* 
*. -* 
* BO 



TEST FOB 

COBTBOL 

STB 



♦****P2********** 

* * 

* ADD 1 TO * 
-X* IBPOT BTTB * 

*POIBTBB BEG 12 * 



******** 



******** 



*****f 3********* * 

* SAFB PBTB TO * 

* DIBBC. BBTBT * 

* ABD BBSTOBB * 
*OPBBABD LBBGTH 
*BBGISTBB II 

*********** 



*****6 3********* * 

* SAfB LIBBABT * 

* DIBBC. BLOCK * 

* ABD ADDBBSS * 

* OF DIBBC. * 

* BLOCK * 
***************** 



*****P4********** 

* * 

* BOfB * 

* BOOK BABB • 

* IBTO BSG * 

* * 
***************** 



HRITB BSG 

OB 

SISLST 



F5 *. 
.* BOOK < 
* BABE 

FOOBD 
*. *B2 
*. 

*. .* 



*****G5********** 

* POIBT TO BSG * 

* 3B54I. * 

* -I.IIIIIIIX * 

* ALBBADX IB * 



«***H -|********* 

* BBTOBB TO * 

* CALLIBG SBQ * 

* flA LBKBBG2 * 
*************** 



*****a3********** 

* BOfB ADDBBSS * 

* OF BBXT * 

* AfAILABLE * 

* BBCOBD IBTO * 

* I/O TABLE * 
***************** 




************** **i 



****J3********* 

* BBTOBB TO * 

* CALLIBG SBQ. * 

* flA LBKBBG2 * 

*************** 
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Chart NU. MXNTUP - Subroutines (Part 5 of 6) 
Fefer to Charts 4 4-46 



«* * ' . • 

* $®JW3CK . * * BNCABD 

» * ■•#.■.-■■ 



■ Bt *". **jmi*02********** •**B3* I «MX)*»«** 

.* •• * POINT TO ass * 

.* ZOTABLB *. FES * »3B53X SOOBCB * • . BBAD A 

♦.Pit TO M» OF.*. X* STATEMENT * RECORD 

*• IIBBABT .* * LIBRARY IS * * • 

*„ ** . * POLL* * 

*„ A 4r ***#«******•*»*** «**•**#«*•*•*«*** 



* nm 8 BLOCK * *-*-♦-»-»-*-*.-*-* * S F7 POINTER * 

* TO mVFm * HRITB HSG * TO HA 1ST • 

• abba • * ■ ■ oh. * * up or area * 

• * STSLST * * 

mm®®.®®************ ***************** ****** **«******* * 



D3 *. 

.* *. 






•4 

• 


(***D<M 


|t******l 


.* 81 *. 

* . BITE 


. 1 

* 


rss 


• 
X* 

* 
* 

•4 


RESET 
PBTR 
BYTE 

i ****** 


BUFFER 
FOR 81 


*. RECORD .* 
• . -* 

*. .* 
* HO 




RECORD 

>******< 
























• 


Ix 










" 


CHKCHAR .*. 

E3 *. 

.* *. 

.* CONTROL .•• HO 

*. STH .*.... 

*. .* 

*. .* 

*- .* X 
* IBS ***• 
* * 












* B3 * 












**** 








*****P3********* * 










• SBT RECORD 

* POIHTBB 

♦ FOB TRT 


• 
• 
* 











^it^ig.^ !*#$*«*«*** **])2******* 

* * * * 

* SAFE ADDBBSS * 

* ALB BAD! IB * 

* 3/0 TABUS * * 

* * ♦ * 

***«>»*$********** *********** 



X 

m*m x 

* 8W 0P ABB * ****g2********* 

* SAFE BUFFER * * GO TO BHDJOB * 

* addrbss^nxth * * in soot phase • 

* fomaTtbo * * * 

* first 8 bites * *************** 

***************** 



** • **p "J* ******4* • 

• HOFB B0FFBH * 

• ADD1 TO * 

• IOTABLS * 8 * 

• AND SET PNTR * 

• TO IOTABLB * **** » ^ 

***************** * * ***************** 



*****& 1********** *****g2********** 

* IBXTB OCT * * RESTORE * * * 

* RECORD FXA * * CONTENTS OF * * TRT CARD * 
*ITFHRR? ROOTXNB* ♦ NRKRE68 * * FOR * 

* IN ROOT PHASE * * AND * * OPERATION * 

* * * TBLBIO+8 * ■ ■ • * 

****** *********** ***************** ***************** 



*****B1****«***** x B3 *. **g4******* 

* OPDATE I/O * **** H 2********* .* *. * * 

* A DDR OP NEXT * ♦ RETURN TO * .* END ♦.IBS * SBT SB 

*BNTRT ?. DRADOP* * CALLING BOOT * *. STH .* X* AT -BOF- 

♦HOOTIHB IH ROOT* * »IA LHKRBG2 * *„ .* • TO NOP 

* PHASE * *************** *• .* * * 

*•«***«**#«****«*' ». „» *********** 



*****J-|«*** ****** * * 

* * ***• v v 

* SBT OP FOR * 

* SKIP TO * 

* NEB PAGE * 
mm * * 
mm* ******** ****** ***************** 



****E*****w*»** 

• GO TO CSSTART • 

* IB BOOT PMASB * 
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Chart NV. MAINTUP - Subroutines (Part 6 of 6) 
Refer to Charts 44-46 



***** %•**•*•*•• 

• PLSSTB • 

*************** 



****A3»*******» 



****a5********* 



****•••***•***• 



*****B«*******i 



SBT POXBTBB 

TO FUR 
OOTPOT ABBA 



• OOTPOT ABBJ 



:*•*• : 

"I***.^* 

• SAW B 

: ow, g Ms 



***************** 



* SBT POIBTBB * 

* TO HAIIT * 

* IIP OT ABBA * 



*****C3********* 

* BLABK ODT 

* PBIIT 

* OUTPUT 

* ABBA 



ft*****:*********** 

* BLAIK OUT • 

• PBIBT • 

• OOTPOT • 

* ABBA • 



***C5************ 
PlItT BBBOB 
• BBSSA6B fXA • 





X 

.*. 

D1 *. 

•• * 




•• 

* 


81 

BITB 

• BBCOBD 

•. .* 

*. -* 

• 10 


* 



*****B2********** 



* BITE BBCOBD * 

* * 
***************** 



•****B3********* * 

* • 

* BOVE IB * 

* COBTBOL • 

* STB * 

* * 
****** ********** * 



BO IB 

IB 

BBCOBD 



*****B5********* 
IBCBBHBBT 

*r — 



BBBOB 

COOITBB 



i*~ 



.* 

*. •* 
* TBS 



***B3********* *** 

PBIMT 

* COBTBOL STB * 

*H3 

• * 

******* ********** 



*••£«*** ********* 
• PBIRT^BBCOBD * 
* * 

***************** 



**B5**»**»* 
* SBT BBBOB * 
• St ITCH OB • 
(SBTCH1) * 



***•*? |********** 

• SAVE OOTPOT * 

• POIBTBB AID * 

• S1ITCH 1 * 

• *F2 * 

• * 
***************** 



*P2 
SBB BOTB *A2, 
CHABT BB. 



****F3********* 

♦ BETOBB TO * 
•CALLIBG ROOT I IB* 

* VIA LBKBB62 * 
*************** 



****f 4*** ****** 

* BBTOBB TO * 
*CALLIBG ROOTIBB* 

• VII LBKRB62 * 
*************** 



***6 i»*********** 
BBBTB BV 
*.*-*-*_*-*_*-*-* 
SKIP 
* LIIB * 



•***65********* 
• BBTOBB TO * 

•CALLXBG BOOTIBB* 
- „ 6 jg # 



*****B -|********** 

* RESTORE * 

* SWITCH ABD * 

* OOTPOT * 

* POIITEB * 

* * 
*** *** **** ******* 



***jr f****** ****** 

R TIL IK IV 

*-*.* -*_*-*_*.*_* 
PBIBT COBTBOL 
* STB • 

***************** 



*H3 
VIA SKIPHV ROOTIBB 
II ROOT PHASE 



**•*• 



Program Organization 18 5 



Chart N*J. MAINTUP - Sequence Number Check (Part 1 of 4) 
Refer to Charts 44-46 



****} ?********* 

• PNDIGIT * 

• ♦ 
***** ********** 



***B !******•**• 

* * 

* INCREHBBT * 

• POINTER PAST * 
♦OPERA HOB COI» * 

♦ * 
to**************** 



*«**«£?******«*** 



**«**B2*«*«****** 

* * 

* IRCRBHBHT • 

* OPERAND *X 

* POINTER BY 1 * 

* * 
***************** 



LOCBLK 



83 



Of. 



IB REGS 
AND 2 
POR TRT 



•• END *. 

OP .* 

*. OPBBABD .• 

*. .* 

•. .* 

• TBS 



CPBOOBD .*. 

C3 *. 
.* *» 

„• OPBRARD *. BO 
♦ . PRECEDES .•... 
*. .COL. 72 .• 



• BBSTOBE FXBST • 

• OPEBAND • 

• POINTER • 



***************** 



*****D f********** 

* POT EXTENT * 

* OP CARD LBPT • 

* TO TEST IBTO * 

VBRRBG8 

POR TRT 



SBNCB * - BO 
BBS .♦... 

POUND .* 



* HA1BT INPUT • 

* ARBA * 
*** ************** 



**************** * 



*****%3********* * 

* SATE POINTER * 

* TO START OP * 

* OPEBAND. * 

* SA?E LENGTH * 

* OP OPERAND * 
**************** * 



„P3 *. 




„* ONE *. 




.• OR TITO • . 


TWO 


*. SBQOBNCB 
*. HOHBBRS .• 


•.... 




• . .* 




•• -• 


X 


• ONE 


***** 




•NT * 




* A2* 


• 


• * 



WKRr~, r 

NICS, BTJ1* * * m $Z 
• • 
**** x 

DBCPBD .•. 

C5 •. 
.• IS «. 
BO .• CHAR « 

*. VALID BOOK- 

*. NAME •• 
•.CHAR „• 
• «> .* 
• IBS 



SATE 

CHARACTER 
PBOB TBT 



TBS «• CHARACTER *. 
...*. DBCXBAL •• 

«. N081. „• 



•BE • 
• B2* 

• • 



Rlin:**: 



.* El ♦. 

*. BITS 

• . RECORD .• 



*****Q2********** 

* * 

* RESET BOPPER • 
.X* POINTER POR • 

•81 BITE RECORD • 

* * 
***************** 



*****£3********* * 

• * 

• SATE • 

• LENGTH OP * 

• OPEBABDS • 

• * 
***************** 



SET PHTB TO 

IBWALXB 
************* 



• SET POINTER * 

• TO END OP • 
•DATA ON RECORD • 

• * 
***************** 



.X. 

X 



*****J3********** 

• . • 

• INCRBRBBT • 

• OPEBAND • 
« INDEX BT 1 * 

• * 
***************** 



BO .• 3ND •• 
...*. OP 

•. OPERAND •• 




SEE BOTE *A2- 
CHABT NB, AND 
NOTE •B2, CHABT I 



• B5 • 

* * 
•**• 
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Chart NX. tiAINTUP - Sequence Humber Check part 2 of 4) 
Refer to Charts 44-46 



***** 

♦■w * 
* B5« 



***************** 



ALL 
DIGITS 
CHECK BD 



•RH * 
* C5* 



*****D2********** 

* * 

* CLE A B SECOND * 

* SEQUENCE * 

* BOCKET * 

* * 
***************** 



*****21**** ****** 

• BOfB 6 • 

• DIGITS SBQ ♦ 
...♦ RO.TO ♦!. 

* SBCOMD * 

* BUCKET * 
***************** 



OPES AMD ♦. EQ 
5 BITES .♦... 

LOHG .* 



*****£ 3********* * 

* * 

* HOVE 5 DIGITS * 
" . lOIO ♦. 

* SBCOMD * 

* DOCKET ♦ 
***************** 



.1* 



TOBKT 

*****r *********** 

• * 

• BOfB SBQ * 

« SOMBER *I . . 

• TO FIBST * 

• BUCKET ♦ 
***************** 

......... ji! 


LEH3 
GT 


.* 
** 


.*. 

F2 ♦ . 
.* *. 
OPEBAHD * 
SIZE 
. TBItEK .* 
*. .♦ 
*. „♦ 
• EQ 


. LT 


OHBT 
....X* 


HO 


.♦. 

F3 ♦ . 
♦ ♦ . 

OMB *- MO 
DIGIT .*.... 


SQMORf 

•****P4********** 

* HOfB 2 DIGIT * 

• SBQOEHCE * 
....I* MOHBKR * 






RUBBER -♦ 
♦. .* 
*. .* 
* IES 


* TO FJ 

• B0C1 
********< 


[BST * 
BT * 
********* 


z 
**** 

* • 





*****G2********** 

* * 

* BOfB SBQOENCB • 

* RUBBER TO ♦ 

* SECOBD * 

* BUCKET • 
***************** 

**** I 



♦ H2 *.X. 

* * .X 

**** t 
TSTSBCH .*. 

H2 ♦. 
.* 2MD •. 
.* TIBE THBO *. TBS 
*. FOR 2 .*.... 

♦.OPERA IDS .* 



*****6 3********* * 


* 


BOfB 1 DIGIT 


* 


* 


SBQOEHCE 
BOBBER 


* . 


* 


* . 


* 


TO FIBST 


* 


* 


BUCKET 


* 


***************** 




Ix 





***** 

*MZ * 

* B2* 

* * 



.♦ 



.*. 

J2 ♦ . 

*. 
TWO *. 

OPERANDS 
EXIST .♦ 



♦. 



.* 



****K2********** 



**************** 



X 
***** 
♦MY * 
♦ B1* 
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Chart HY. MAINTUP - Seguence Number Check (Part 3 of 4) 
Refer to Charts 44-46 



**•*• 

•MI • 
• P3* 



CHIADD1 .*. 
12 * 



•HX * 

. • K2* 



*** **B I**** ****** 

• SET OP AID * 

• SAVE POIBTEB • 

• TO SBCOBD * 

• OPBBABD * 

• * 

****** *********** 



*****C 1********** 

• * 

• PIED LEBGTH * 

• OP PIHSI ♦ 

• OPBBABD * 

• * 
****** *********** 



•****£ |********** 

* 

• BESTOBB 

• TOTAL OPE BAWD 

• LEBGTH 

***************** 



B2 *.X. 

* . 
**** X 
HK .•. 

B2 *. 

.• *. 

.♦ COBB A ♦. 
. BETBEBB SEQ . 
• • MO. .• 



**** 

* • _ 

* C2 *.x. 



.X. 



#*C2******* 
•TOHB OB BIT* 

* 7, SWITCH 1 * 
* TO IMDICATB * 

* TiO SEQ * 
* BO. * 

*********** 



*****D2********* 
* 

* SAVE 

* POIBTEB 

* TO COHBA 

**************** 



•MB • 
• H3* 



CHKADD2 .*• 

D3 *. 



** *************** 



. CHECH BC ...... • SilTCB TO DO • 

•. OPBBABD .♦ . * TBI DPDATB • 

*..••• • 

• „ .• I ***************** 

• IBS •••• 




• B2 • 



A. 

• B2 • 



BO .♦PBOGBSSIBG 
...*. ADD STH 
•- 



*****£ 1********** 

• * 

• PXBD LEBGTH • 

• OP SBCOBD * 

• OPBBABD • 



*****B2***** •** * 

* SET OP 

• POIBTEB TO 

* STABT OP 

• OPEBABD 

****************! 



•****S3*** ****** * 

* POIMT TO • 

* -HSG3021I- • 

* IB? ALIO *. 

* OPEBABD • 

* * 
***************** 



BB-ITE ODT 
HBSSAGB OB 

************ 



.• 1ST •. 

-• SEQ MO. •. B 
•. LENGTH 4 OB .*. 
• . LESS .* 
*. .• 

*> .* 
* TES 

*#***G i***** 

® * 

• SATE LEBGTH • 

• OP SBCOBD * 

* OPBBABD • 

* * 
***************** 



••H |******* 
*TOBB OB BIT* 

* 6. SWITCH 1 * 
• TO INDICATE * 

* TESTING 2BD * 
* SEQ BO. * 

*********** 



*****P2«**<******* 

* • 

* PIBD LEBGTH • 

* OP PIBST • 

* OPBBABD * 

* * 
***************** 



*****p*********** 

• BESET 'UPDATE • 

• SOPPBBSSIOH* • 

• SBITCH TO DO • 

• THE UPDATE * 



63 •. 

,* 
LEBGTH 

*. •' 

*. .* 



X 

***** 

•HI * 
* G5« 



• 


. 


X 1 

.*. 

H2 *. 

•. 
LEBGTH *. 
SEO. BO .* 

LfE H .* 
►■» •• • 
*. .* 
• IBS 






"x 1 



*** **J 1**** ****** 

• LOAD POIBTEB * 

• TO SBCOBD * 

• OPBBABD IBTO * 

• PABAHBTEB * 

• REGISTER » 
*** ******** ****** 



*****J2********** 

* SAfE TOTAL * 
•LEBGTH OP OPBR.* 

* AND LEBGTH * 

* OP PIBST * 

* OPERAND * 
***************** 



***** 
*NN ♦ 
* C5* 
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Chart NZ. MAINTOP - Sequence Number Chart (Part 4 of 4) 
Refer to Charts 4 4-46 



VI* 



•IB 
SB! lOfl *A2 

CHUT IB. 



****A5********* 



SBQOID I 

*«B2**"*** 

•SET OFF BIT* 

• 6 II SWTCH1 • 
•81 BIT! RECORD 

* IMDICATOB * 
* *11» * 

*********** 



•*B3******* 

♦ TORI Oi * 
•BIT 3, SNTCB3* 

• "TO IHDICATB • 
* OBB SSQ * 

• HOMBBR • 
*********** . 



X 
.*. 

C3 •. 



** ***B%*«* ******* 

• PZB * 

• DIBBCTOII * 

• BBTBT PIA •!. 

• DTPSL HACRO * 



FMD 

BBQOBST 



■0 


.* 


IOHBEBS 


...• 




IH 


. 


* 


.SEQOEHCE . 






*. .* 


X 




*- .* 


***** 




* IES 


•MB • 






• 65* 




.X.... 


• * 






• 






BR6SBQ 
COHP 




X 


»KT .*. 






D2 *. 






.* MO. *. 




• * 


GREATER 


* 




THAN LAST 




* 


. COHTROL . 
•.STMT -* 



*****C5********** 

• * 

• GET LIBRARY * 

• RECORD IIA * 

• DTFSL BACRO • 



****D5»******** 
* RETURN * 



* E2 *.I. 

* * 
**** 

RBPBKT X 

*****22********** 

* MOVB SECORD * 

* HO. TO OLD * 

* SBQDEHCE * 

* HO. BUCKET * 

* * 
***************** 



X 
.*. 

F2 *. *****pj********** 

.* *. * ZERO SECOHD * 

.* 2 *. IES * SEQOEHCE * 

*. SEQOEHCE .• X* HOHBER * 

•. BOBBERS .* * BUCKET * 

*. .* * * 

*„ .* ***************** 

* HO 

li ! 

i 

BHBSHCH .*. 

G2 *. **Q3******* 

.* *. * set orp * 

.* PREVIOUS *. YES *BITS 5. 6, 7 * 

*. ERRORS .* ...X* IH SRTCI11 AHD * 

*. .• * BIT 3 IH * 

*. .* *SWTCH3 *K5* 

*. .* *********** 

* HO 



SPECIF IBD -*.... 



**** 

* * 

•*•• 



**TH******* 

* TOBH OFF * 

♦BIT 5, SBTCHl* 

• INDICATING • 

* ADD STHT * 



*F5 
AH I ADD HILL 
IHSBRT STATBBBHTS 
BBPORB ZERO OH 
HBH BOOKS 



X 
**** 

* * 

* KM 



*H1 
SBTCH3. BIT 3 
INDICATES 1 
SEQOEHCE HOHBER 
OH COHTROL 
STB. 

SRTCB1, BIT ,7 
INDICATES 2 
OPBRARDS OH 
COHTROL STB. 
SEE *K5 



OFFSHCH X 

**H2******* 
SET OFP 



***** 
*HY * 
* B1* 



**H4******* 



•*H5******* 



* BIT 3 IN * 


FLSSTH 


• TORN OFF * 




• TUBE OH < 


* SHTCH3 AND * 
* BIT 7 IH * 


•J3 


• S HITCH « * 




* SHTCHB BIT 02 




* BIT 02 * 




• •ADD* STHT < 


•SWTCH1 *B1 * 




• * 




* * 


*********** 




*********** 




*********** 


* 




**♦* " 




" 






* * 










• J* ♦.!. 




X 






* * 




**** 






**** x 




* * 


. 




GRTEQO .*. 




* E2 • 


X 




J* *. 




• * 


****j 2** ******* 


•J 3 


.* 1ST *. 




••** 


* RETURN TO * 


ERRORS - CONTINUE 


.*OPBRAHD GRT*. IES 




•CALLING ROUTINE* 


CHECK IHG COHTROL 


*.0H » LAST OH .*.».. 




• VIA LNKBEG1 * 


STBS. BUT NO 
OPDATE. 


•.LAST CTL .* 


V 




*************** 


•.CARD .• 








*. .* 


X 








• 10 


**** 








**** 


* * 








* • . 


• E2 • 








• K4 *.X. 


* • 








* * . 


**•* 








**** 










HRGORD X 










** ***m*** ******* 










•SET POIHTBR TO • 




*H5 






• ERROR MESSAGE • 




SEE BOTE *A2 






• 30101 - STHT * 




CHART HB AHD 






• OUT OF * 




HOTB *B2 






• SEQUENCE • 
***************** 




CHART HP. 











•HH • 
• H5* 

* * 
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Chart PC. 



MTNTUPF - Initialization 



* BAXHT0PF • 

* * 
%************** 



LBIBLKS .*. 

13 ♦. 

.* free •• m 

*.LXBB. BLOCKS .*. 
••AVAILABLE.* 



*BA * 

* BS* 

* * 



• BODIPT BOP * 



SBTADOR X 

•****B3********** 

* IBSBBT L06. • 

* BLOCK 10. * 

* IMTO DBPIBB * 

* BITBiT * 

***************** 



i 

.* SS *. 
LXBB1KX > 
ALLOCATED 



•BA • 
• B5* 

• * ■ 



****D l***»****** 



.* AM *. 
.* OPERARD *. bo 
*. OB THB .*... 

*. SIB .* 



ARfBKMBB .*. 

D3 *. 

.* *. 

.* BOOK *. 

*. BARB ON 

*. STB .* 



*****E 1********** 

* • 

* IiSBBT LIBB. * 

* ADBR IBTO * 

* DBF. BXTBBT * 

* • 
mm* ************** 



*****p I********** 

* . * 

* GET MOBBBB * 

* OF BITES * 

* OF OMB PBA * 

* BLOCK * 
mm*************** 



***q f**** ******** 
DOXO PB 

*-*-* -*_*-*_*-*_* 

BEAD LXBB. 
• DBSCBIPTOB * 
BBCOBO 
*m** ************* 



_ BIT HIES IB . 

*. DIB. .* 
•. .♦ 

*- .* X 

-* IBS ***** 

*MA ♦ 

* A»* 

. * * 

* 

X NOLIBB 

J1* "*. 
.* *. 

.* PBBB *. HO 

. DIB. BHTR7 .*.... 
'.AVAILABLE.* 
*. .* 

*. .* X 

* IBS ***** 

♦MA * 

* A5* 
X * * 

**** • 

• * FHDBHD 

* A3 ♦ 



*. 



X 

•*• 

B3 *. 

.* VALID *. 

.* SOBLIB *. m 

*.CBAR IB BOOK .*., 

*. HABB .* 

*.OPMD .* 

*. .* 

* IBS 



.* PBBIOD 
BBFORB 
♦.BOOKMABB 



COBPLB .*. 








B3 *. 








.* BOOK *, 








.* HABB 8 


'*. 


MO ! 




*. CHARS OB 




*..I 




*. LESS .* 






*. .* 




i 


*. .* 




• IBS 




***** 






*HD * 






* D1* 


X 




♦ 


* 
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Chart PD. MAINTOPF - END Statem. Routine. Update Directory and Library Descriptor 



***** 

*PB * 
• R1* 



**** 

♦ * 

* 15 * 



* PRKVIOOS *. IBS 



*****B2*******< 
* 

• DBLBT OLD 

• DIRECTOR! 

• BHTRI 



HBHBRTSI .*. 

A3 *. 

.* BLOCK *. 

-* cooht of * 
*. bkhbbb zbbo 



••. .* I 


*************** 


* BO ***** 




•IP * 




* D3* 




* * 
* 

X BBT0RB2 


- 


X 


•*-v 


.*. 


B1 *• 


B2 *. 


.* ust *. 


.* *. 


-* BHPTI ♦.10 


.♦TEH P. HARE * 


•HBHBBR BLOCK ...... 


*. RBQOIBED 


*.tO WHITE .* 




*. .♦ 


♦. .* 




♦ . .♦ 


*. .♦ 




*. .* 


* YES 




♦ IBS 



• R RITE HBHBBR 

• BLOCK OH 

• DISK 
****** ********* 



*****C2********** 

* ROVE * 

* TBHPORART * 

* HARE IHTO OLD * 

* DIBBCTORT * 

* ERTHI * 
***************** 



*****B3* ********* 

* HOT! COVTBBTS * 

* OF OLD EHTHT * 

* IHTO HBt • 

*» BHTRI * 

* * 
***************** 



*****C3********* * 

* IHSERT OLD * 

* BOOK RARE. • 

* ADDR. OP BOOK ♦ 

* IR LIBR. AHD • 

* BLOCK COURT * 
**************** * 



****!**** ******* 

* • 

* IHSBBT LIBR. * 
,JL* DATA IBTO • 

* STATUS TABLE * 

***************** 



X 

***** 

•HP * 

* D3» 

* • 



ROTE RBR 
EHTHT IHTO 
DIB. BBCOBD 



**** *B5********** 

• • 

• IHCBEHBHT • 

• BHTRI • 

• POIRTBR * 



**** 




GETASTRX X 


X 


•****Cl|*** ******* 


*****cs********** 


* LOAD ADDR • 


• IHSERT DIR. * 


* DIR. BOFFBR * 


• BLK ADDR. * 


♦ADD BITE DISPL.* 


• FOB DIB. BBC. * 


• OP RXT AVAIL. * 


♦ HRITB ♦ 


* KB TBI * 
***************** 


• * 


***************** 



HOOPDTB X 

*** **© ft********* 

* GET ADDB ESS * 

* OF BHTRT TO * 

* BE OPDATBD • 

* IH RRKRE68 * 

* • 
*•*•*******•**•** 



**B I******* 



* HRITB DIR. * 

* RECORD OH * 

* DISK * 
***************** 



*********** 



G1 ♦ . 

.* ♦ . 

* OPHD ♦ 

OH EHD STH 



***j i************ 

DOIO PE 

*-*-*-*-*_*-*_*-* 

WRITE EHTRY 
* BACK * 

***************** 



****P2********** 
IRCRBHERT * 
ROBBER OP * 
DELBTBD * 

MEMBER * 

•DESDEL* * 

**************** 



*****G2********** 

* DECRBHBHT * 

* ROBBER OP ♦ 

* ACTIVE * 

* HBHBBR * 

* •DBSACT' * 
***************** 



*****{{ 2********** 

* OPDATB OP * 

* DELETED * 

* BERBER BLOCKS * 

* •DBSLSD* * 

* * 
***************** 



.* LELVBL OH * 


. HO 


*. OPDATE 


.*.... 




*. CARD .♦ 






*. .* 






*. .* 






* TBS 




*****£3********** * 


* 




* 


* 


OPDATE OP 


* 


* 


VERSION 


* 


'* 


HOD I PIC ATI OH 


* . 


* 




* 


***************** 




Ix 





D4 *. 




D5 ♦ . 


*. 




.* DOBHX * 


A ST EH 11 *. IBS 




.♦ BRTRIj*) 
*. OH SAHB 


POORD .*.... 




.* 




*. RECORD 


.* 




♦. .* 


*. .* X 




♦. .* 


• HO •*** 


* HO 


. * 


* 




♦ AS 


* 


• 



**•*•£«***•****** 

* * 

* LOAD ADDR * 

* -OP ERROR * 

* BESSAGE * 

* * 
***************** 



WTDXREC X 

***• *B5********«* 
•DOIO ... PE* 



P3 *. 

.* UEtf *. 

.* BHTRI OH *. 

*. SAHE RECORD . 

♦ . .♦ 

♦. .* 



*****63********* * 

* INSERT BLK HO * 
♦OP HEXT AVAIL. * 

♦ BHTRI IHTO ♦ 

♦ LOCATE ♦ 

* DIRECTORI ♦ 
***************** 



*****fj 3********* * 

♦DOID PE^ 

*-*-*_*_*-*_*_*- * 

♦READ DIR. REC. ♦ 
♦WITH HIT AVAILS 
* BHTRT ♦ 

**************** * 



***************** 



**6<t******* 
• * 

SBT ERROR 
AHD CAHCEL 

SWITCH OH 



****HH**« ****** 

* RET OB* ♦ 

* HAIHT ROOT * 

* * 
*************** 



♦ WB1TB ♦ 

♦ DIRECTORI ♦ 

♦ RECORD ♦ 

***************** 



*****P5********** 

♦ IRCRBHERT ♦ 

♦ RELATIVE ♦ 

♦ BLK. ADDR. • 

♦ DIR. LOCATE ♦ 

♦ * 
**** ************* 



*****G5********** 

* IBITIALXZE ♦ 

* O-BITBS * 

* LOAD ADDR. ♦ 

* FOR HEW ♦ 

* ERTRI ♦ 
***************** 



*****B5********** 

♦ UPDATE OF ♦ 

♦ DIB.BLKS.OSED ♦ 
•DIR.BLKS.AVAIL.* 

♦ JDBSBDO 

♦ DB SHBBI 



BBk 



*PB * 

♦ A1* 

• * 
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Chart PE. MA' INT- UP F - Update Directory and Library Descriptor 



•Ml * 
* «• 

• * 



* DISPLACEMENT 

• OF IBT DIB. 



***************** 



*****B j********** 

* ASTBRIX *lfc • 

* LAST DOHHT * 

* 2HTHY * 



*****C !•**♦***•*• 

• HCRBBB1IT * 

• USED BYTES * 

• OF DIRECTOR! * 

• RKORD * 

• * 
mm* mm* *********** 



•****D t********** 
•DO 10 PB» 

*-.*.-*-.*».*-.*-*.-*-* 

* WRITE UPDATED • 

* DM. RECORD * 

* 01 DISK • 
***************** 



•***A2********* 

• * 

• DOIO * 

• • 
*************** 



BICP |1) 



***************** 



****C2********** 

* 

»ait (1) * 

* ■ 
**************** 



****D2********* 

* * 

* RETURN • 

* • 
*************** 



DBSCROPD X 

*****£ -|********** 

* DPDATB BIX * 

* AD DR. OF * 

* KBXT AVAIL. * 

* DIR. BMTRY * 



*****? f********** 

• OP DATE DISPL. * 

• OF RBXT ♦ 

• AVAILABLE * 

• DIR. BHTRI * 



*****£ f********** 

• IMCRBHBMT * 

• ROBBER OF * 

• ACTIVE * 

• 8HJBBR * 

• * 
***************** 



*****jH j* ********* 

* * 

* OPDATB BEHBER * 

* BLOCKS . * 

* AVAILABLE * 

* * 
***************** 



*****j f** ******** 



***************** 



* 1RITB OPDT. * 

* DESCRIPTOR * 

* RECORD * 
***************** 



.STATOSB 
X 
***** 
*PD * 
• A** 
* * 
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Chart PP. ELAINTUPF - Prepare Directory Scan 



***** t********* 

* • 

* CBTC1D • 

*************** 

**** * 

* • * . 

* B1 *.X. 

* * . 
•*** 

CBTCBD X 

***B 1****** ****** 

• * 

BUD 1 BBCOBD 



*****C 1********** 

• * 

* SET POIBTBB * 

• TO HAIBT * 

* INPUT AREA * 



DBTSCB1 X 

*****B3********* * 

• SA¥B OPBRABD * 

• LBBGTB BB6. * 

• IBSBBT SCAB * 

• AB6UBBBT * 
*■ * 
***************** 



**************** * 



DETSCB2 X 

*****B«**« ******* 

* SAfB OPBRABD * 

* LBBGTB BBC. • 

* 1BSBBT DIB. * 

* STBT. ADOB. * 
♦IiTO DIB. LOC. * 
***************** 



*****C4*** ******* 



** ************** * 



****B5********* 

* * 

* DIBSCAI • 

* * 
**• ************ 

***• 

* 4 

* B5 *.I 

* * 
**** . 

DIBSCAB X 

*****£5********** 

* * 

* LOAD ADDBBSS * 

* DIBBCTOBX * 

* BOPPBB * 



**** *C5********** 
•DOIO PB* 

*-*-*-*-*_*-*-*-* 

* BBAD • 

• DIBBCTOBX * 
BBCOBD 



**«**D2********** 



8 1 BITE *. IBS 
BBCOBD .* 

.* 
►. .* 

*. .* 


* RESET BUPPER * 
-j>.X* PBTB POR * 

* 81 BYTE * 

* RECOBD * 
***************** 


BO .** 
...*. BOOR POOEO 
*. 

*. .* 

X *. .* 


* BO 


. 


**** * IBS 



*****D 4*** ******* 
♦DIBSCAB PP* 

*_*-*-*-*-*-*_*-* 

•SCAB DIBBCTOBX * 

* POR BOOK BABE * 

• * 
***************** 



*****I>5********** 

* * 

* GET BDBBEB * 

* EBTBIBS OP • 

* DIBBCTOBI * 

* BBCOBD * 
***************** 



PABBBPD X 

*****£ i**** ****** 

• LOAD ADDBBSS • 

• 1ST BITE III PUT * 
•AREA IBTO REG 12* 

• AMD LAST BITE • 

• IBTO BEG 10 • 
***************** 

**** * 



*****F 2***** ***** 

* * 

* ADD 1 TO * 
INPUT BYTE * 

POIBTER * 

* REG 12 * 
***************** 



.X* 



* TEST POR * 

* COBTBOL * 

* STB * 

* * 
***************** 



* VIA UBKREG2 * 
*************** 



*** **j 1**** ****** 

* LOAD HSG11, * 

* BOTE BOOR * 

* BABE IBTO * 

* ERBOB BSG ♦ 

* * 
***************** 



*****K i********** 
*ERRTB B¥* 

*_* _*_ *-*-* _*_*_* 

* ERBOR BSG *. 

* BOOK ALREADI * 

* IB LIBBART * 
***************** 



END OP CARD 


.*. ... 


.* 




*. .* 




*. .* 


X 


* MO 


**** 




* 




* B1 


X 


* 


**** 


**** 


* * 




* F1 * 




* * 




**** 




**** 




* * 




* J2 * 





* IMSERT BOOK * 

* MAKE IMTO * 

* ERROR BESSAGB * 

* * 
***************** 



**** 

**K2******* 



*********** 



*****E3********* * 
•SATE DISPL. OP * 

• BMTBX BITBIM • 

• DIB. RECORD • 

• AMD RECOBD • 

• ADDRESS • 
***************** 



*****F3********** 

* * 

* RESTORE * 
*OPBBAMD LBBGTB * 

* REGISTER * 

* * 
***************** 



•***G3********* 

* * 

* RETURN * 

* * 
*************** 



*****B 3********* « 

* IBSEBT BEL. * 

* BLCK. ADDBBSS * 

* OP BOOK TO BE *X. 

* UPDATED * 

* * 
**************** * 



*****j 3* ******** * 

♦DOIO PE* 

*-*-*-*-*-*-*-*-.* 

• READ DIR *. 

* RECORD • 



.*. 


CO HP ARE X 


E* *. 


*****£5*** ******* 


.* *. 


* * 


•. IBS 


• COBPABB • 


BOOK POUBD ...... 


• BOOK BABES * 


'. .* 


• * 


•. .• 


* * 


•. .* X 


***************** 


* BO **** 



BOBOOK 
IBS .*' 



P% *. 

• DID *. 
SCAB 
DESTBOX 
DIRECT. .' 
•BUFFER.* 
*. .* 
* BO 



*. BOOK BABBS 
*. EQUAL . 



X 
**•* 

• • 

* M* 



*****64*** ******* 

* RESTORE 

* OPERABD 

* LBBGTB 

* BEGISTBB 

**************** 



****U4*** ****** 

* * 

* RBTURB • 



65 *- 

.* •. 

-* LAST *. 

•. EBTEI OP 

•.DIBBCTOBX.* 

*. .* 

«. .* 

* BO 



HS *. 

.* LAST *. 
BO .* BBTBI *. 



* B5 * 

• * 
**** 



****«jS********** 



***************** 



**** 

* * 

* K4 * 



****K **** ****** 

* RBTURB • 

* DISPL. * * 

* * 
*************** 



BLOC 



EBEBT 
TI1B 
ADDB 



****K5********* 

* RBTURB • 

* DISPL. * 

* ♦ 
*************** 



***** 
*BU * 
* B3* 

* * 
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Chart PG. MAINTOPF '- Member Block Write Routine 



****A2********* 

• • 

• BTBLOCK * 
«*******••*«*** 



X 

: ■■■'-■.•• 
B2 *. 
.* BLOCK ♦. 
.* OP BBHBEB • . 

SPACE 

••AVAILABLE.* 

*. .• 



*****B3********* • 

• * 

• LOAD ADDS • 
X* BBBfiB BSG10 * 

• IBTO BEG • 



BBTBLE X 

*****B*********** 
•DOXQ PI* 



&*®Rk 



* IBS 



BLRDATA X 

* GET ADDRESS * 

* OP PBA BLOCK * 

* BOPPEB AMD * 
♦LOGICAL B EC 08 D * 

* BOPPEB * 
***************** 



*****C3********* * 
•BBBTB BV* 

*-*-*-*-*-•-•->*- * 

* VBITB BBBOR * 

* MESSAGE * 



**«**€«««******** 



• BITES OP PBA 

* BLR PBOB PBA 
•BOPPBB POIBTBB 



C5 *. 

.*ASE ART*. 

.•HOPED BYTES' 

. BXS0XB PBA 

*. BUPPBB .< 

*. .* 



*****D2«********* 

* ADD ADDBBSS * 

* PBA BLOCK * 

* BOPPBB AMD * 
•POIBTBB BITHEB * 

* BOPPEB * 
***************** 



**D3«****** 



*********** 



***** 

* * 

* SAVE BBV * 
•BOPPEB POIBTBB • 

* 'BLKPTB* * 

* * 
***************** 



•****05#********* 



*****22********** 

* HOVE COBTEBIS • 
•OP LOG. BUFFER • 

* IBTO PBA • 
BOPPEB 



**£3******* 



*********** 



** ***B4*** ******* 

* BOVB BEST • 

* OP BITES • 

* TO BOPPEB • 

* BBGIB • 

* ■ * 
***************** 



******** 



**«**P2********** 



***************** 



*****p 

• ■ . ■ * 

• LOAD • 

• BBTORB • 

• ADDBBSS • 

• ■' ' * 
**************** * 



*• ***p«********** 

* IBCBEHBBT • 

* POIBTBB * 

* TO BEXT BLOCK * 

* (LOCATE) • 



***** 



****«G2* *••**•*•* 

• IRCBEBBBT * 

• BLOCK POIHTER * 

• HITBIR PBA * 

• BOPPEB • 

• * 
***************** 



**** G 3********* 

♦ BETOBB TO • 

♦ BAIBT BOOT * 

♦ • 
*************** 



•* ***6«********** 

• IBCBEBBBT • 

• PBA BLOCK » 



****S5********* 



TBS .* IS 
...*. PBA BLOCK 
*. PILLED . 
•. .* 

X *. .* 
**** • BO 

• • . 

* B« • 



BTBK X 

*****J2*«*«****«* 

• IBCRBHBWT * 

• LOGICAL • 

• BBCOBD • 

• COOMTEB • 



•BXPABDSD SSL RBCOBDS 
OP 80 BTTES OXLL BB 
BBTBXEVED VSA 
BACBO DTPSL (6BTL0GIC) 



••••K2*»****»** 

• • 

• BETOBB * 

• * 
*************** 
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Chart Ra. 



DSERV 1 

Refer to Charts 72-73 



•At 



•***B i********* 

• * 

♦ DSBBV1 * 
**•******•*•*•• 



*****B2********** 



************ ***** 



*****B5********** 

• • 

• IBCBBHBBT • 
.X* PASS MO PACE * 

• COUNTERS • 

• • 
***************** 



*****C3********* * 

* BBAO SIS DIB • 
•RECORD. INITIATE* 
*BLDG.TBB STATUS* 

* TABLB BBTBIBS • 

* FOB SIS LIB. * 
***************** 



♦PBIiT HBSSAGBS *I. 

* * 

***************** 



IBS .« BBBOB 
...... COBDITIOB 

*. 



I 
CHECXL .*. 

D3 *. 
.* *. 

NO .* PRIVATE *. IBS 
...*.CIL ASSIGNED .*.... 

*. .* 

*. .* 



*****D«********** 



.* PRIVATE 
. BBL. LIB. 
•.ASSIGNED 
*. .• 



*****S3********** 

* OPBH TBB * 

* LIBRAE I START * 
.1* BUILDING TBB *. 

* STATUS TABLE * 

* BMTRI * 
***************** 



DlCBLB OR 
D1PRLB 

*****B4*** ******* 

* ' * 
*COBPLBTB BOILDG* 

...I* THB TABLB * 

* BRTRI • 



** *************** 



.♦DIRECTORIES*. IBS 
•.TO BB PRIRTBB.*... 



BEAD BEIT 

COBTBOL 
STATBHEBT 



P2 



D1CSB1 
DtPSBl 



*. 



.* SISTBfl •. IES 
•BBLOC. LIBRAHI.*.... 
*. PRESENT .* 

"*. .** 

* RO 



SB LB OR 

SRLB 

*****P3********* * 

* * 
♦COUPLETS BOILDG* 

•X* THE STATUS • 

* TABLB BHTBX * 
**************** * 



****P4*******< 

* CLBABOP IS 

* ROOT PHASE 
*K4 



D1CPSLB OR 
D1PPSLB 

*****G<t ********** 



.♦ PRIVATE *. TBS 
••SOURCE STAT. .*.... 
LIB. ASSIGRED 



• RO 
'.I... 



SILOING THE 

STATUS 
TABLE ENTRI 



IBS .* BBROR 
....*. IR CONTROL 

*. CARD .' 
*. .* 

*. .* 
• NO 



LOADSTAT X 

*****a t********** 

•CONDENSE STATUS* 

• TABLE BI • 

• EUHXNATING • 

• BUNK LINES * 

****** *********** 



*****j |********** 

* $L IB ST AT * 
*_*_*.*-*-*-*.*-* 

* PRINT THB * 

* STATUS REPORT * 



H2 *. 
.* *. 

.* SISTER *. IB5 
•.SOURCE STAT. ••.... 
LIB. PRESENT* 
*. .* 

*. .* 
* NO 



♦COHPLBTB BOILDG* 
.X* THB STATUS * 

• TABLE BBTRI * 

* * 
**************** * 



PRIMT BESS AGE *. 

* 

***************** 



•SET FIELDS * 
ABD INDICATORS* 
.X* IN ACCORDANCE * 
* NITH STATUS • 



.* PROCEDURE *. 
*. LIBRARI 
*. PRBSBRT .* 



LOADF2 X 

**J5****** 

• PREFABS 



BBQOJ 

vebla: 



•EVBBLAI PHASE* 



**•********•**••* 



CHXSDL X 

*****g 2******** ** 

• INDICATE • 

• PRBSERCE OR • 

• ABSERCE OF • 
♦SISTER DIRECT. * 

LIST 



FOR BID-OF-JOB 
PBOCBSSING. 



****15********* 

• FETCH IB • 

* BOOT PHASE * 
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Chart RB. 



DSERV2 

Refer to Chart 74 



•***B2********* 

* DSEBY2 * 

• * 
*********** **** 



TCI BIT X 

*****C2********** 

* INITIALIZE * 

* COBS IMAGE * 

* DIBBCTOBI • 

* PROCBSSIBG * 

* * 
************ ***** 



* BEAD « 
DIRECTOR! 
* RECORD * 
*******<»•**** ***« 



E2 *. 

.* *. 
* ACTIYB *. 

BRTRIBS IB .* 
*. RECORD .♦ 



P2 *. 
.* TD *. 
BO .* REQUESTED *. 
...*. ABD 

*. PRBSEBT .* 



•*** 

• * 

♦ J5 * 



.* YERSIOM * . 
.ABD HOD. LEV.. 
".REQUESTED.* 



BEADKEY .*. 

H2 *. 
.♦ PHASE *. 
.♦NAME PODBD *. IBS 
*.IH DIB EC TORY .*... 



**J2*«***** 

♦ * 
SET 

•BOT PODBD* 
IB SWA 

* * 
*********** 



BOS .$. 

.•" *••. 

t«* HBADIHG *•• H 
*. BBBDED .*. 

•• ^«* 
•. .* 



W 



* IBITIATB 

* BDITIBC OP 

* AB BBTBI 



CHECK POR 4 

LAST .* _ 

EBTBI ••SDL 

...*. TEST BBTBI .*.., 

*. .* 



DIRECTORY ABD 



***************** 



X 

.*. fHROOT 

pj *. *****?*********** 

.* *. *ADD YBBSIOB ABD* 

.* YBBSIOB *. YES * HODIPICATIOH * 

*.ABD HOD. LEY..* X*LBVBL.PBIHT THE* 

*.BBQOESTSD.* • LIBE * 



*****G3********** 

* * 

* PBIBT A LIBE • 

* * 
** **** ******** ** * 

It 



.* *. 
BO .* SIBCLB *. TBS 
...*. PHASE .*....! 



IBITIATB 
BBTBIVAL OP 
BEXT EBTRY 



*... 

* X 



.* *. 

.* BED OP ♦• I 
.X*. DIBBCTOBI .*. 



•SBB ABD SHB1 * 



* J5 *... 

* * . 

RISETTD X 



••JS******* 

* * 

-PHASES RESET SBITCHBS* 



TBI *. BO HOBE 

* *. S-PHASBL 

TEST BHTBY .*.\. X* SBB ABD SB! 

*. .* * ^ 



****K2** ******* 

* PBTCH IB * 

* ROOT PHASE * 

* * 
*************** 



BEAD BEXT 

DIBBCTOBI 

BECOBD 



****X5*** 

* PITCH IB * 

* BOOT PHASE * 

* * 
**«***•*•****** 
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Chart RC. 



DSERV2P 

Refer to Chart 



74 



****B2********* 

• * 

• DSBBV2P * 

• * 
***** ****** **** 



*****C2********* 

• INITIALIZE 

* COBB IMAGE 

* DIBBCTORX 

• PROCESS IMG 



• READ 
DESCRIPTOR 
• RECORD * 

***************** 



.* ACTIVE *. 
. EMTRIBS IE . 
*. RECORD .* 



**** 

* • 

* H5 * 

* * 
**** 



* READ FIRST 
DIRECTOR! 
* RECORD * 

***************** 



.* VERSION *. MO 
*.AHD HOD. LEV..*... 
♦.REQUESTED.* 



.* PHASE *. 
* MAHE * . 
FOOMD IK . 
♦.DIRECTOR I.* 



* BEADBR LIBB 
**•*«**•********■ 



IIITIATB 

EDITII6 OP 

Al EETBI 



CHECK FOB ♦- 

LAST .♦ ♦. DIRECTORY AMD 
EBTRI ».SDL BID 
...♦. TBST BITBT .* 

*. -* 

*. .♦ 
*. .* 

•EITRT HOT 
.IE SDL 



EDIT A LIIE 

POB OEB 

BMTBI 



**************** * 



.*. VHBODTP 

P3 *. **** *?**** ******* 

.♦ *. *ADD VBBSIOI AID* 

.* VBBSIOI ♦. TBS * BODIPICATIOI * 

• .AID NOD. LBV..* .X* LBVBL. PBIIT * 

♦.REQDBSTBD.* * THE LIIE • 

*. .* * * 

*. .* ***************** 

* 10 



G2 *. 
.* TD *. 
10 .* RBQOESTED 


*. 

.*' . 
* 


«****G3********** 

* * 

* * 

* PBIIT MESSAGE * 

* * 

* * 
***************** 

♦*** I 

* * .X..... r 




G4 *. 

.* *. 

10 .* SIIGLB *. IBS 

....*. PHASE .*.... X 


*. PRESENT . 
*- .* 
X *. .* 

**** * ies 

' * . 


: 


*. -* 

*. .* 

*. .* 

* 


* 
**** 

X 
READCHKP .*. 


* H3 *-X. 

* * . 
**** 

NEXTEITP X 






BIDCBKP .*. 



*****g3********* * 

* * 

* IIITIATB * 

* BBTRIBVAL OP *. 
■*' MBIT BMTBI * 

* * 
***************** 



,* 
10 



MBIT EITRX 

IBBDBD.* , „ 
*. TBST BMTBI .*- 



• RESET 
.X* SMITCHBS 
•SMB AID SIB.1 



* * . 
**** 
RESETTDF X 



* SNITCHES 
•SIB AID SBB1 



****K I********* 

* FETCH II * 

* BOOT PHASE *X«. 

* • 
*************** 



**K2******* 

* * 
SET 

MOT POUND 
IN SWA 

* * 
*********** 



***K4************ 

• BBAD IBXT * 
DIBECTOBI 
BBCOBD • 



**** K 5********* 

• FITCH II • 

• BOOT PBASB • 
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Chart ED. DSBRV3 

Refer to Chart 75 



****42********* 



**•*•****•*•*•* 



1 

T .*. 
C2 *. 

.* *. 

* SOBT - ♦ . IBS 
REQUESTED .*.... 

• . .* 

*. .* 
*. .* 
• HO 



BS FETCH 5 .♦. 

D2 *. 
,♦ *. 

.* *. PLB 

*. WHICH LIB ...... 

*. •• 

SISTBB+* 
PHIfATB. 
RLB/SLB. 



* HIT FETCH 
• OF DSBBF5 

* . .■•"". ■ • * 

*********** *********** 



****P2********* 

* FETCH in * 

* DSBBV * 
*. ROOT PHASE * 

*************** 
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Chart RE. 



DSERV3F 

Refer to Chart 76 



***** I********* 

• * 

• DSBBY3P • 

• * 
***** ********** 



•12 
SATB BBTBT LBE6TB. 
SATE MO OP EBTBXBS 
PER RECORD. BOTE 
LIBBART START ADDBBSS 
INTO DEFIBB LOCATE 
BLOCK. 



•I* 

EDIT AID PBXVT BB1DBB, 
EDIT ABO PBIBT LXBB 
BI LXBB IB SIBGLB OB 
DOOBLE COLOHB. 



* IS IT *. TBS 

STSTBH BEL. .*.... 
*. LIB .* 



****••**•*******■ 



.*. 


D3PRLB 


CI *. 


*****£2********** 


.* •• 


* • 


• IS IT *. TBS 


♦ • 


FBIVATE BEL. .♦ 


...I* *A2 * 


* . LIB .♦ 


* * 


•. .♦ 


♦ * 


*. .* 


***************** 


* BO 




- 




X 




.♦. 


03SLB 


BI • . 


*****D2********** 


.* *. 


• * 


• IS IT *. IBS 


* * 


STSTBfl SOURCE.*..... 


...X* *A2 * 


*. LIB .* 


* * 



***************** 



X 

.*. 
BI *. 

.* IS IT • - 
• PRIVATE ' 

SOURCE LIB 
*. 

•. .♦ 



***************** 



***************** 



* RBAD 

DESCRIPTOR 
* RECORD • 

***************** 



* READ 

DESCRIPTOR 
* RECORD IHTO * 
SORT AREA 
*********** ****** 



*****£ 3********** 



.• IS IT 
. STSTBH BBL. 
*. LIB .« 



.* IS IT 
*. PR IT ATE RBL. 
*. LIB 
*. .* 



.* IS IT *. 
♦.STSTBH SOURCE. 

*. LIB .* 



RSPETCH .*. 

EH *. 

.* IS IT *. 
.* PR1TATB ' 
*. SOURCE LIB 



*A« *... 

* 

**************** 



*«** ************* 



.X* *A* *. 

* * 

* * 
***************** 



**H5******* 



****tf5****«**** 

* FETCH IB • 

* BOOT PBASB * 

* * 
9***** ********* 



**************** * 
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Chart RF. 



DSERV4 and DSEBV5 
Refer to Chart 75 



• DSBBf* * 



.♦ IS I* 

•• A SO01CB 
*. LIB 
*. .* 



»«» 






*««*C2********** 



*m***** ********* 



*****Q2********** 



***************** 



*****22***+****** 

* * 

* EDIT AMD * 

* PRUT k * 

* LIBE * 

***************** 



****C3*+******* * 



*************** * 



*****Q $********* 



i***** ********** 



*****%$********* * 

* * 

* BDIT A0D * 

* pbibt a * 

* LIHK * 

* * 
***************** 



BOX! ♦ MIW • 



LXiis 



****B5*** •»*•*• 

• RICH XI * 

* BOOT PBASB * 



*********** 



****& 2********* 

* FETCH IM * 

* ROOT PHASE * 

* * 
*************** 
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Chart RG. 



DSERV6 

Refer to Chart 76 



• DSE1T6 • 

* • 
*************** 



*****B 2**« »* *** *' 



**************** 



...........xlx. ......... 






X 
-TOPS .♦. 

C2 *. 
.* *. 

.* HEADER *. NO 
*. REEDED .*.... 
*. .* 
. *. .* 
*. .* 
* IBS 




I X 

***02** ********** 




I * PRIRT * , 

HEADER 
. * * 




* ***************** 




I *X 




* x 

.EITLIHE .*. 

B2 *. 
.* *. 
.* *. FBA 

• *. CKD OR FBA .*... 






• *. .* 

*. .* 
*. .* 
* CKD 






"ertlihbc X 

m ***Z2************ 


BNTLINBF X I 
***P3************ . 


I * EDIT AND * 
PRINT A LINE 
* * 


* EDIT AND * * 
PRINT A LINE 

* * 


* ***************** 


********** 


******** * 


I X 
.*. 
G2 *. 
. .* *. 
. NO .* END *. 
....*. OF SDL .* 


: 

.< 
63 
.# 
.* El 
♦. OF J 


*. 

*. 

ID *. RO . 
►DL .*.... 



* * 

* INITIALIZE 
* FETCH OF 

* DSERV1 

* * 
*********** 



****j2** ******* 

* FETCH IN * 

* ROOT PHASE ♦ 

* * 
*************** 
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DATA AREAS 



This section shows the formats of data areas used by the librarian 
programs and of the libraries on SYSRES. It contains: 

INITABLE (MAINT Root Phase) 

Reallocation Tables (MAINTA/F) 

Library Status Table (SLIBSTAT) 

STOWTAB and TABIN Formats (for SMAINDIR/$MAINDIF) 

Switches for various phases 

SYSRES Formats 

Library Data Formats 



IflTABLE FROM MAIjiT ROOT PHASE 



« ----- 

CPDEVTYP 
CODEVTYP 

CBYBLK 

CTRKS 

CTRRNO 

CIDREC 

CILBEC 

RPSCLB 

CILOGJINT 

CILEXTNT 

♦-*-- 

RPDEVTYP 
RDDEVTYP 

RBYBLK 

BTBKS 

RTRKMO 

RDREC 

RLREC 

RPSRL 

RLLOGUNT 

RLEXTNT 



CORE IMAGE LIBRARY (CIL) CHARACTERISTICS 



DS XL'il DEVICE TYPE CODE AS IN POB 

DS XL1 DEVICE TYPE CODE AS IN DTFCP 

DS 0XL5 DEVICE CHARACTERISTICS 

DS XL2 BYTES IN FBA BLOCK 

ORG CBYBLK 

DS XL1 NUMBER OF TRACKS PES CYLINDER 

DS XLfl NUMBER OF TRACKS PER CYLINDER - 1 

DS XL1 RECORDS/TRACK IN CORE IMAGE DIRECTOTY 

DS XL1 RECORDS/TRACK IN CORE IMAGE LIBRARY 

DS XL1 RPS FLAG FOR CIL RPS SUPPORT 

DS XL1 LOGICAL UNIT FOR CIL (INIT SYSRES) 

DS XL4 DISK ADDRESS OF CORE IMAGE LIBRARY 



RELOCATABLE LIBRARY (RL) CHARACTERISTICS 



DS 

DS 

DS 

DS 

ORG 

DS 

DS 

DS 

DS 

DS 

DS 

DS 



. — --- T . 
XL1 
XL1 
0XL5 
XL2 

RBYBLK 
XL1 
XL(§ 
XL1 
XL1 
XL1 
XL1 
XL«* 



DEVICE TYPE CODE AS IN PUB 
DEVICE TYPE CODE AS IN DTFCP 
DEVICE CHARACTERISTICS 
BYTES IN FBA BLOCK 

NUMBER OF TRACKS PER CYLINDER 
NUMBER OF TRACKS PER CYLINDER - 1 
RECORDS/TRACK IN RELOCATABLE DIRECTORY 
RECORDS/TRACK IN RELOCATABLE LIBRARY 
RPS FLAG FOR RL RPS SUPPORT 
LOGICAL UNIT FOR RL (INIT SYSRES) 
DISK ADDRESS OF RELOCATABLE LIBRARY 



Figure 13- INITABLE from MAINT Root Phase (Part 1 of 2) 
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DS XL1 DEVICE TYPE CODE AS IN PUB 

DS XL1 DEVICE TYPE CODE AS IN DTFCP 

DS 0XL5 DEVICE CHARACTERISTICS 

DS XL2 BYTES IN FBA BLOCK 

ORG SBYBLK 

DS XL1 NUMBER OF TRACKS PER CYLINDER 

DS XL1 NUMBER OF TRACKS PER CYLINDER - 1 

DS XL1 RECORDS/TRACK IN SOURCE STATEMENT DIR. 

DS XL1 RECORDS/TRACK IN SOURCE STATEMENT LIBRARY 

DS XL1 RPS FLAG FOR SSL RPS SUPPORT 

DS XL1 LOGICAL UNIT FOR SSL (INIT SYSRES) 

DS XL4 DISK ADDRESS OF SOURCE STATEMENT LIBRARY 



#_- .« ... 

* 

SPDEVTYP 
SDDEVTYP 

SBYBLK 

STRKS 

STRKNO 

SSDREC 

SSLREC 

RPSSL 

SSLOGUNT 

SSLEXTNT 
*. — . — . . 

* 

*• — -« 

RPDEVTYP 

RDDEVTYP 

PBYBLK 

PTftKS 

PTRKNO 

PDREC 

PLREC 

RPSRL 

PLLOGUNT 

PLEXTNT 

* 

* — . . — . 

CNSW 
SWITCH 

* 

* 
* 

LIBLIM 

INITED 



SOURCE STATEMENT LIBRARY (SSL) CHARACTERISTICS 



PROCEDURE LIBRARY (PL) CHARACTERISTICS 



DS XL1 DEVICE TYPE CODE AS IN PUB 

DS XL1 DEVICE TYPE CODE AS IN DTFCP 

DS 0XL5 DEVICE CHARACTERISTICS 

DS XL2 BYTES IN FBA BLOCK 

ORG PBYBLK 

DS XL1 NUMBER OF TRACKS PER CYLINDER 

DS XL1 NUMBER OF TRACKS PER CYLINDER - 1 

DS XL1 RECORDS/TRACK IN RELOCATABLE DIRECTORY 

DS XL1 RECORDS/TRACK IN RELOCATABLE LIBRARY 

DS XL1 RPS FLAG FOR RL RPS SUPPORT 

DS XL1 LOGICAL UNIT FOR RL (INIT SYSRES) 

DS XL4 DISK ADDRESS OF RELOCATABLE LIBRARY 



GENERAL CONSTANTS 



DS 
DS 



XL1 
XL1 



DS XL4 
EQU * 



CONDENSE SNITCH USED IN MAINTCN 

INFORMATION' BYTE 

X'80' .-CALL. NAINTA AFTER CONDENSE 

X f 40 c : CANCEL AFTER GIVING STATUS REPORT 

X*20« : SYSLST NOT ASSIGNED 

XMO 1 : STOWTABLE CREATED IN MAINTDR 

X^OB 1 : 81-BYTE SYSIPT RECORDS 

X'OU.'- : CONTINUATION CARD READ 

X l 02« : SOME MAINT OPERAT. FAILED 

MAX CYLINDERS/BLOCKS FOR LIBRARY (CKD) 

OR DEVICE CAPACITY IN BLOCKS (FBA) 



Figure 13. INITABLE from MAINT Root ?hase (Part 2 of 2) 
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REALLOCATION TABLES FROM MAINTA OR MAINTAP 



CDOSA 


DISPLACEMENT 


(DECIMAL) 


RDOSA 







SDOSA 


4 




PDOSA 


8 
10 
12 

14 

16 
18 
20 
22 
24 
26 





DIRECTORY TABLE 
Old starting address (CCHH) 
New starting address (CCHH) 
Number of tracks used 
Number of tracks allocated 
Number of blocks used 
Displacement in no. of tracks 

(Note 1) 
Block size 
Update code (Note 2) 
Number of blocks per track 
Entry size 

Number of entries per block 
Displacement of disk address in 

entry 

MEMBER SPACE TABLE 

Old starting address (CCHH) 

New starting address (CCHH) 

Number of tracks used 

Number of tracks allocated 

Number of blocks used 

Tracks of displacement (Note 1) 

Blocks size 

Update code (Note 2) 

Number of blocks per track 

Record size 

Number of records per block 

Library Identification 

Table for next directory begins 

This is the number of tracks that must be added to or 
subtracted from the old disk address to get the new disk 
address (the difference between the values at displacements 

and 4) . 

Note 2: if the value at displacement 14 is 0. 

1 if the value at diaplacement 14 is positive. 

2 if the value at displacement 14 is negative. 



CLOSA 






RLOSA 





28 


SLOSA 


4 


32 


PDOSA 


8 


36 




10 


38 




12 


40 




14 


42 




16 


44 




18 


46 




20 


48 




22 


50 




24 


52 




26 


54 




28 


56 


Note 1: 


This is th< 



Figure 14. MAINTA Reallocation Table 
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TOTAL 

TABLE SLOT LENGTH 
REALDSCT 

OLDDIRA 4 OLD DIRECTORY START ADDR. 

NEWDIRA 4 4 4 NEW DIRECTORY START ADDR. 

DIRBLKU 8 8 4 DIRECTORY REC. USED <IN BLOCKS> 

DIRBLKN 12 12 4 DIRECTORY REC. NEW <IN BLOCKS> 

DIRMVADR 16 16 4 ADDR. FOR I/O UPERATION 
* INITIALISED DEPENDING ON MOVE 

DIRMVUNT 20 20 4 NUMBER OP BLOCKS IN ONE I/O 

DIRLEN 24 24 4 LENGTH TO MOVE 

DIRDEL 28 28 4 RELOCATION FACTOR FOR DIR . ENT 

RTABCLS 32 32 1 SWITCH BYTE IN TABLE 

PRESENT LIBRARY PRESENT ON OLD SYSR. 

(CORE IMAGE LIBR . ALWAYS PRES . 
NOACTIV LIBRARY CONTAINS NO ACTIVES 

PASSONE MOVE LIBRARY ON FIRST PASS 

PASSTWO MOVE LIBRARY ON SECOND PASS 

STAYS DIRECT. OR MEMBER SPACE STAYS 

NEW LIBRARY IS BEING ALLOCATED 

RTABCLT 33 33 X LIBRARY TYPE INDICATOR 

RTABCLI CORE IMAGE 

RTABRLI RELOCATABLE 

RTABSLI SOURCE 

RTABPLI PROCEDURE 

RTABDRI DIRECTORY 

OLDMBRA 36 4 OLD MEMBER SP. START ADDRESS 

NEWMBRA 40 4 4 NEW MEMBER SP . START ADDRESS 

MBRBLKU 44 8 4 USED MEMBER RECORDS <IN BLKS> 

MBRBLKN 48 12 4 NEW MEMBER BLOCKS 

MBRMVADR 52 16 4 CURRENT ADDRESS IN I/O 

MBRMVUNT 56 20 4 BLOCKS IN ONE I/O 

MBRLEN 60 24 4 LENGTH FOR READ/WRITE CCW 

64 28 4 NOT USED 

68 32 1 SWITCH BYTE AS ABOVE 

69 33 \ LIBRARY TYPE INDICATOR AS ABOVE 



Figure 15. MAINTAF Reallocation Table 
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LIBRARY STATUS TABLE PROM ILIBSTAT 



Field 
Name 



I 

| Size 



I 

| Contents 



NROFENTR | 2 bytes j Number of table entries following | 

(First | I I 

entry) | » f 

1 



Each next entry contains the following items: 



STATCD 



| 2 bytes | 

t » 

I t 

I I 

I I 

I I 

I I 

» I 



Logical unit of library, may be: 



X»0006» 
X^OO? 1 
X*0008» 
X^OOB* 
X i 0102 i 
X»0103» 



SYSRES 
SYSSLB 
SYSRLB 
SYSCLB 
SYS002 
SYS003 



-+ 

I 1 byte 

r 
i 

» 

i 
I 



STATTYPE 



I Type of library, may be: 

I 

| C — Core Image 

\ S — Source Statement 

| P — Procedure 

| R — Relocatable 



BBCCHH 

or 
STTBNR 



STTARC 



6 bytes \ Disk address of first directory 
j track for CKD 

I 
2 bytes | unused 
H bytes j block address for FBA 

+ -__--__-_____. , 

| 1 byte | *C* = CKD 
| | *F» = FBA 



I 

_ + + : . 1 

STTSW | 1 byte | switch byte I 

| j X , 80 i : print condense limit | 

| \ message if condense limit has been | 

| I reached | 



Figure 16. Library Status Table 



THE STOW TABIJ3 AND SSI TAB IN ARRA Y (FOR $MAINDIR/$MAINDIF ) 

The Stow Table consists of a header and as many entries as there are 
reguests to be filled by $MAINDIR/$MAINDIF . 



CKD FORMATS IN STOWTAB 



For CK D, the f ields in the header are : 

2 8 



beginning 
byte 



10 



12 



r ■ 1 

field name | LOGDNIT | DIRADR | NROFCALL | NROFENTR | 

L I 
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LOGUNIT: Indicates the logical unit: 

X , 0006 t for system core image library (SCIL) 
X § 000B» for private core image library (PCIL) 

DIRADR: Contains the start address of the directory. 

NROFCALL: Number of requests already satisfied by $MAINDIR + 1 
(0 when called by IPL or by job control) . 

The leftmost bit of NROFCALL is named OWPMSHP. 
It is set to 1, if 

• an error occurs during condense , 

• the message 3M33I or 3M54I has been issued, 

• a return code >8 was given back by $MAINDIR 

NROFENTR: number of entries for the current request. 



For CKD, the f ields in the entry are : 
8 16 



beginning 
byte 



field name | STOWNAflE| NEWNAME | 

i - 



17 



18 



| STOWTYPE \ 



30 



STOWNAttE: Contains the phase name. 

NEWNAME: Contains the new phase name for a rename request. Otherwise, 
the field is split into two subfields as follows: 
Field STOWTTR (bytes 8 through 10) . Contains the disk address 
of the phase. 

Field STOW N (byte 11) . Contains the number of half words of 
new directory entry. 

STOWTYPE: Indicates the requested service: 
as for FBA, see below 



FIXED BLOCK FORMATS IN STOWTAB 



For FBA, the f ields in the header are: 

2 4 



beginning 
byte 







10 



12 



field name | OWPLGUN | 



| OWPLBEG | OWPNOCL j OWPNOEN 



OWPLGUN: Indicates the logical unit: 

X , 0006» for system core image library (SCIL). 
X , 000B t for private core image library (PCIL), 
X»0102 i for new SCIL. 
X*0103* for new PCIL. 

OWPLBEG: Contains the library start address. 
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OWPNOCL: Number of requests already filled. It is zero, when the phase 
is called by IPL or job control. 

The leftmost bit of OWPNOCL is named OWPMSHP. 
It is set to 1, if 

• an error occurs during condense 

• the message 3M33I or 3M54I has been issued , 

• a return code >8 was given back by $MAINDIF. 

OWPNOEN: Number of entries. 



F or FBA , the f ields in the entry are : 
t 16 



beginning 
byte 



17 



18 



26 



27 



30 



field name | OWPNAME \ OWPNEWN | 

I. , 



| OWPTYPE I 



| OWPNRB | 



OWPNAME: Contains the phase name. 

OWPNEWN: Contains the new phase name for a rename request. Otherwise! 
the field is split into two subfields as follows: 
Field OWPADR (bytes 8 through 11) . Contains the address of 
the first text block. 

Field OwPNTX (bytes 12 and 13). Contains the number of text 
blocks . 



OWPTYPE: 



Indica 

C»B» = 

C«C« = 

C»D ft = 

C»E* = 

C»F* = 

C»I» = 

C»L* = 

C»M* = 

C»N* = 

C»R» = 

C»U* = 

C *X r = 



tes the regu 
load (build 
catalog the 
one exists, 
delete the 
use the ent 
the last ca 
library des 
load the ph 
catalog the 
load the se 
include the 
rename the 
update to r 
update to r 



ested service: 
) the phase in the SVA. 
phase and delete the previous entry if 

entry with the indicated phase name. 

ry in building a second level directory. 

11 for a condense operation to update the 

criptor record. 

ase in the SVA (request comes from IPL) . 

phase temporarily in the link area. 
If -relocating phase in the SVA. 

CIL entry in the SDL. 
phase. 

eflect a library condense operation, 
eflect a library reallocation operation. 



OWPNRB: 



In addition to the above listed characters, OWPTYPE may 
contain characters set for internal control purpose as 
follows: 

C»A* instead of C^B 1 
C*K» instead of C f M* 
C »S * instead of C^R 1 

Indicates the number of additional RLD blocks. 



Note: The overall format of a Stow Table entry is similar to that of a 
core image directory entry. 
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THE TABltf ARRAY 



For each entry in the Stow Table there is a rearranged entry in the 
TABIN array for easier processing. The format of the TABIN entry is: 



beginning 
byte 

field name | 



12 



14 



r 














- T 


I 


1 


\ 2 


I 


3 


I 


4 


I 


L 














. „ J 



1. TABNAME: Phase name as extracted from the corresponding Stow Table 

entry. Subfields may be accessed as follows: 
MAMSHRT — bytes 0-3 
TNAMLAST — bytes 4-7 

2. TABTYPB: Copy of byte OWPTYPE in corresponding Stow Table entry. 

3. TAB ADR; Contains a pointer to the corresponding Stow Table entry. 

4. TABMSG: Used as message indicator: 

B yte Bits Meaning w hen J 
12 
13 




1-7 

0-7 



Message 3M33I is to be generated. 

Reserved. 

Reserved. 



SWITCHES FOR VARIOUS PHASES 



SWITCHES FOR $MAINDIR 



SMAINDIR uses the bits of three consecutive bytes in the data area as 
switches. The bits of these bytes which are declared as SWITCHES, are 
accessed symbolically for the purposes indicated below: 



B yte 



Bit 



Name 



SEQUENCE 



FOUND 



SWOP EN 



S?L0G 



Explanatio n 

Set by EXTR to 

OK=0 If the entries in the Stow Table 

are in the correct sequence. 
INERR0R=1 If these entries are out of 

sequence. 

Set by LOOKUP to 

YES = 1 If a matching phase name was 

found. 
NO=0 If a phase name higher than the 

search name was found. 

Set by MSG to 

YES=1 To indicate that SYSLST has been 

opened . 

Set by MSG to 

YES=1 To indicate that the SYSLOG CCB 

and CCW have been built. 



SWASGN Set by INITSYSL to 

YES=1 To indicate that SYSLST is 

assigned. 
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lli§ Sii Name 

5 SWFIRST 

6 SWINPTR 

7 SWREALLC 

1 SHDRYRUN 

1 SWEQUAL 

2 SWSDLEQL 

3 SWDIST 

4 SWSVAFUL 

5 SWRASEQL 

6 SWM91I 

7 SHM51I 

2 SWASSGN2 

1 SHALL 

2 SWALLC 

3 SWMSHP 

4-7 reserved 



Explanation 

Used by GE.TEHtSI: if 

XES=1^ the directory input will be 
initialized. 

Used by PUTENTRY: if 

YES=1 # INPTR *--> DIRENTRY is used as 
input 

Used by GETENTRY: 

YES=1/ indicates a reallocate run. 

Used by PUTENTRY: 

YES=1 indicates that the directory 

should not be modified (dry run) 

Set by CHKEQL to 

YES=1 If a matching phase name was 
found in the CIL directory 

Set by CHKEQL to 

YES=1 If a matching phase name was 
found in the SDL. 

Set by KEEPDIST to 

YES=1 To indicate to GETIHP that CCW 
string, disk address, IOREG and 
INPTR must not be modified. 

Set by LOAD to 

YES=1 To indicate that no more phases 
can be loaded into the SVA. 

Set by RASEQL to 

YES=T To indicate that the phase is a 
RAS transient. 

Set by UPDSLD to 

0N=1 To indicate that message 3M91I 
has to be displayed. 

Set by PUT0UTP to 

0N=1 To indicate that message 3M51I 
has to be displayed. 

Set by INITSYSL and FINISH to 
0N=1 To indicate that message 3H92I 
has to be displayed on SYSLST. 

Set by BLOWUP to 

YES=1 To indicate a DELETC ALL request. 

Set by BLOWUP to 

0N=1 To indicate a DELETC ALL request. 

Set by UPDATE, RENH,SVANSG,GENHSG and 
FINISH to 

0N-(8 To indicate that OWPMSHP in the 
Stow Table has to be switched on. 
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SWITCHES FOR $MAINDIF 



$MAINDIF uses the bits of two consecutive bytes in the data area as 
switches. The bits of these bytes, which are declared as SWITCHES, are 
accessed symbolically for the purposes indicated below: 

Byte Bit Name E xplanatio n 

SEQUENCE Set by EXTR to 

OK=0 If the entries in the Stow Table 

are in the correct sequence. 
INERR0R=1 if these entries are out of 

sequence. 

1 SWEQUAL Set by CHKEQL to 

YES = 1 If a matching phase name was 
found in the CIL directory. 

2 SWSDLEQL Set by CHKEQL to 

YES = 1 If a matching phase name was 
found in the SDL. 

3 SWRASEQL Set by CHKEQL to 

YES=1 If a matching phase name was 
found in the RAS load list. 

4 SWASGN Set by IHITSYSL to 

YES=1 To indicate that SYSLST is 

assigned. 

5 SWOPEN Set by WSG to 

YES = 1 To indicate that SYSLST has been 

opened. 



SWLOG 



Set by MSG to 

YES=1 To indicate that the SYSLOG CCB 

and CCW have been built. 



SWSVAFUL Set by LOAD to 

0N=1 When the SYA becomes full. 



FOUND 



Set by LOOKUP to 

YES = 1 If a matching phase name was 

found. 
N0=0 If a phase name higher than the 

search name was found. 



SWRSHP 



Set by UPDA*,RENH,SVAHSG,GE?IMSG and 

FINISH to 
YES=1 To indicate that OWPMSHP in the 

Stow Table has to be switched on, 



2-7 



reserved 
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SWITCHES FOR THE DSERV PROGRAM 



f SWITCHES TO CONTROL THE PROGRAM PLOW } 



All the switch bytes ,, ....DVTP ,t come from the PUB device type byte and 
are used to set the LOADSW to CKDPH and/or FBAPH for loading the twin 
phase (s). In addition "SRESDVTP" is used in DSERV1 to select the twin 
phase subroutines for SYSRES/SRLB/SSLB/PLB whether on CKD or FBA. 



SRESDVTP 


DC 


X*00» 


PCILDVTP 


DC 


X*00» 


PRLBDVTP 


DC 


X»00» 


PSLBDVTP 


DC 


X*00» 


FBAPUB 


EQU 


X«90» 



SYSRES PUB DEV TYPE 

PCIL PUB DEV TYPE 

PRLB PUB DEV TYPE 

PSLB PUB DEV TYPE 

FBA PUB DEV TYPE CODE 



The switch bytes "..ARC" are set. ay the root phase testing 
the PUB device type byte and get the value CK % for CKD and 
C»F» for FBA. 

RESARC DC X»00» 

Used in DSERVC/F to prepare status table entry for 

SCIL/SRLB/SSLB/PLB. 

Used in DSERV1 to initialize FETCH of overlay phases on 

FBA or CKD for SRLB/SSLB/PLB . 

Used in DSERV6 to select header printing for FBA or CKD. 
CILARC DC X*00» 

Used in DSERV1 to prepare status table entry for PCIL. 

Used in DSERV! to initialize FETCH of overlay phase 

DSERV2 or DSERV2F. 
LB ARC DC X 8 00» 

Used in DSERV1 to prepare status table entry for PRLB. 

Used in DSERV1 to initialize FETCH of overlay phase 

DSERV 3 or DSERV3F. 
SLBARC DC X^OO* 

Used in DSERV1 to prepare status table entry for PSLB. 

Used in DSERV 1 to initialize FETCH of overlay phase 

DSERV3 or DSERV3F. 



| SWA AND SWAl 

L . 



NOTES THE SPECIFIED DSPLY OPTION 



SWA 


DC 


X»0 8 




ENTRY 


SWA 


VMIND 


EQU 


X s 80* 


HEADING 


EQU 


X • 40 * 


NONAME 


EQD 


X s 20" 


ALLIND 


LQU 


X • IE * 


PDIND 


EQU 


X»10» 


SDIND 


EQU 


x^os* 


RDIND 


EQU 


X^OU 1 


CDIND 


EQU 


X*02* 


TDIND 


EQU 


X»01« 


SWAl 


DC 


X*0* 


SDLIND 


EQU 


X»80* 



VER AND MOD LEVEL IND 
HEADER NEEDED IND 
PHASE NAME NOT FOUND IND 
DISPLAY ALL INDICATORS 
DISPLAY PROCEDURE DIRECTORY 
DISPLAY SOURCE STMNT DIRECTORY 
DISPLAY RELOCATABLE DIRECTORY 
DISPLAY CORE IMAGE DIRECTORY 
DISPLAY TRANSIENT DIRECTORY 

DISPLAY SWITCH A1 

DISPLAY SYS. DIR. LIST 
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I SWB AND SWB1 

i 



CONTROLS THE CALL OP OVERLAY PHASES 



SWB 



DC 



x*o* 



SWITCH BYTE B 



SYSTD 


EQU 


X'BO* 


SYSCL 


EQU 


x^o* 


SYSRL 


EQU 


x^o* 


SYSSL 


EQU 


XMO* 


SYSPL 


EQU 


X • 08 • 


SYSSDL 


EQU 


X § 04* 


ANYMORE 


EQU 


X*FC i 



DISPLAY TRANSIENT DIRECTORY 

DISPLAY SYSTEM CORE IMAGE DIRECTORY 

DISPLAY SYSTEM REL DIRECTORY 

DISPLAY SYSTEM SOURCE DIRECTORY 

DISPLAY SYSTEM PROC. DIRECTORY 

DISPLAY SYSTEM DIRECTORY LIST 
ANY DIR. DISPLAY MASK 



SWB1 



DC 



X»0* 



DISPLAY SWITCH B1 



PTD 


EQU 


x^so* 


PCLB 


EQU 


X^O 1 


PRLB 


EQU 


X*20* 


PSLB 


EQU 


XM0» 


RESERVE 


EQU 


x^os 1 


FIRST 


EQU 


X^l* 



PRIVATE TRANSIENT DIR INDICATOR 

DISPLAY PRIVATE CORE IMAGE DIRECTORY 

DISPLAY PRIVATE REL DIRECTOR* 

DISPLAY PRIVATE SOURCE DIRECTORY 

RESERVED 

FIRST TIME INDICATOR 



| STATUS AND ERROR INDICATOR SWITCHES 



SWC 



DC 



X^O* 



SWITCH BYTE C 



FULLTBL 


EQU 


x^so* 


RELOOP 


EQU 


x^o* 


ONEIND 


EQU 


X»10» 


LEVELNO 


EQU 


X»08» 


SKIPNAME 


EQU 


X*04* 


DUMYCNT 


EQU 


X • 02 • 


DISPLACE 


EQU 


X»01» 


SWD 


DS 


X»0» 


SORT 


EQU 


X • 80 • 


SVADIR 


EQU 


X • 40 * 


PCST 


EQU 


X»20* 


PRST 


EQU 


X • 10 • 


PSST 


EQU 


x^os* 


SECOND 


EQU 


X«04* 


DIREND 


EQU 


X t 02* 


SWE 


DC 


X»00» 


ERR3 


EQU 


X • 80 • 


ERR4 


EQU 


X » 40 » 


ERR5 


EQU 


X^O* 


ERR6 


EQU 


X • 10 * 


ERR7 


EQU 


x^s* 


ERR8 


EQU 


X , 04» 


ERR9 


EQU 


X»02» 


SWE1 


DC 


X*0» 


ERR 11 


EQU 


X»80* 



FULL TABLE INDICATOR 

GO THROUGH SORT LOOP AGAIN 

DISPLAY SINGLE PHASE 

NEED LEVEL NO. FROM NEXT RECORD 

DO NOT SCAN PHASE NAME INDICATOR 

DUM1 LOOP-COUNT RECDS LEFT INDICATOR 

DISPLACEMENT SEPECIFIED INDICATOR 

SWITCH BYTE D 

ALPHANUMERICAL DISPLAY 

SVA PRESENT INDICATOR 

PRIVATE CORE IMAGE STATUS INDICATOR 

PRIVATE REL STATUS INDICATOR 

PRIVATE SOURCE STATUS INDICATOR 

SECOND TIME INDICATOR 

END OF DIRECTORY REACHED 

SWITCH BYTE E 

NO SYSTEM REL ACTIVE ENTRIES 4-0 

NO SYSTEM SOR ACTIVE ENTRIES 

NO PRI ACTIVE ENTRIES 

NO PRI REL ACTIVE ENTRIES 

NO PRI SOR ACTIVE ENTRIES 

NO PRIV TD ACTIVE ENTRIES 

NO SYSTEM PROC LIBRARY 

SWITCH BYTE E1 

NO SDL PRESENT 
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IPTSW 
IPT81BYT 


DC 
EQO 


X»00« 
X^O 1 


LOADSW 


DC 


X'OO 1 


FBAPH 
CKDPH 


EQO 
EQO 


I •SO 1 


SLIBSW 


DC 


X^OO* 


SRLB 
SSLB 
SPLB 


EQO 
EQO 
EQO 


X^O 1 
X 1 10" 

X«08« 



INPOT SWITCH BYTE 

81 BYTE SYSIPT INDICATOR 



CONTROL OF LOADING FOR 
DSERVC AND/OR DSSRVF 
DSERVF NECESSARY 
DSERVC NECESSARY 

ARE THERE SYSTEM LIB"S 

SYSTEM RLB PRESENT 

SYSTEM SLB PRESENT 

PLB PRESENT 



SYSREg FORMATS 



This section will first given an overview of the different parts "of a 
SYSRES file and their distribution on a disk of CKD or FBA type and then 
describe in detail the areas important for the librarian programs, that 
is, the system directory and the various library types. 



SYSRES OVERVIEW 



Figures 17 and 18 present the organization of a disk resident syste 
shipped by IBM. The SYSRES file may be on an 



m as 



IBM 2314/19 
3330/3333 
3340 
3350 
3370 
3310 



(20 tracks per cylinder) , 
(19 tracks per cylinder) , 
(12 tracks per cylinder), 
(30 tracks per cylinder, or a 
(558000 blocks) 
(126016 blocks) . 



SYSRES is contained in a continuous area at the beginning of the disk 
pack. This disk pack is, by extension, also sometimes called SYSRES, 
Certain areas are predefined. 
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Figure 17 shows the layout of SYSRES on CKD. 



1 

I Starting Disk Address | Number ) \ 
Component | j of | R=Required | 


| CC | HH | R | (Alloc.) | } 


IPL Record | | 00 | 00 | 1 | | R ( 

1 fPhn~o $!3GA$TPT 1\ 1 + + 1 1 1 


IPL Record | I 00 | 00 | 2 | | R | 

i -i- + ill i 


System Volume Label | 00 | | 3 | | R | 


User Volume Label | 00 | 00 | 4 } | | 

1 + , + I I ... i 


\ Record 1 | 00 | 1 | 1 | I R | 

t i + + i i i 


i — i T T i i — "■ i 

| Record 2 | 00 |' 01 | 2 | | R | 
Svrt'oni Dirrrtnrv I— . — I i i , I 1 l 


| Record 3 | 00 | 01 | 3 | 1 | R | 

I 1 4- + , .1 | t 


1 1 T T 1 1 1 

| Record 4 | 00 | 01 | 4 | | R | 

| -§. , 4. 1 | 1 


IPL Records (Phase $$A$PLBK) | 00 | 1 . | 5 | I R I 


| Cataloged Phases 1 1 I I I I 

fnrp TTnacrf* nirprtnrvl .-.- - .......— 1 00 1 9 1 1 * 1 TJ I 


| Linked Phase III 1 1 1 

1 + + II " l 


Core Image Library Member Space | X | Y+1 | 1 | * \ R | 


Relocatable Directory j Z+1 | 00 | 1 | * | o | 

, I -*- + 1 i i 


Relocatable Library Member Space |X |Y+1| 1 I. * I | 

I + + I l l 


Source Statement Directory | Z+1 | 00 | 1 \ * j | 


Source Statement Library Member Space 1 X | Y+ 1 | 1 1 * 1 | 

1 +.. + i | | 


Procedure Directory j Z+1 | 00 | 1 | * | | 

I + + | | | 


Procedure Library Member Space |X &Y+1| 1 | * | ' . | 


Label Information Area I Z+1 | 00 | 1 (device | R | 

I I I |depen— | \ 
III | dent ** | | 



* Allocation Dependent on User Requirements 
X = Ending CC of the Preceding Directory 
Y = Ending HH of the Preceding Directory 
Z = Ending CC of the Preceding Library 



** Allocation Dependent on Number 
of Tracks per Cylinder: 
2314/2319: 20 Tracks (one Cylinder) 
3333/3330: 19 Tracks (one Cylinder) 
3340: 24 Tracks (two 'cylinders) 
3350: 30 Tracks (one Cylinder) 



Figure 17. Layout of SYSRES on a CKD Device 
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Figure 18 shows the layout of SYSRES on FBA« 



| Component 
1 

| XPL Records 

I (Phase $$a$IPL0) 

I __________ 



f Systei folume- Label* 



| System Directory 

| IPL Retrieval Program 
S {Phase $$1$PLBF) 

| Core Image Directory 






j __ . _ __ 

[■■ Core Image Library Member 

| Space 

I ____ . ___ 



| Relocatable Directory 

j _____ — __ _ 



J Relocatable Library Member 

|' Space 

I Source Statement Directory 

I ________ 



| Source Statement Library 
| Member Space 






| Procedure Directory 

S Procedure Library Member 
8 Space 

I ____________ . __ ♦. 

j Label Information Area | 

*__________ . . — .. — _~,« 



Starting Disk Address | Number of j R= Required 
BLock Number | Blocks j O=0ptional 



2 
3 

10 
X*1 






y+1 
x+r 

Y+1 



X+1 

Y+1 
X*1 

Y + 1 



1 

7 

* 

* 
* 

* 

* 
2002 



I 
1 

-♦- 

I 
...... 

I 
I 

-4— 
\ 

I 
\ 

I 

I 
I 

I 

I 

\ 

I 











* = Allocation dependent on user requirements 
X = Last block of preceding directory 

I = Last block of preceding library member space 

* Optional user volume labels if written will be in the same block 
following the system volume label. 

z Os^ng the Restore program you may allocate a label information area 
different than the default size of 200 blocks. 



Figure 18. Layout of SYSRES on a Fixed Block Device 



Figures 17 and 18 show the correspondence in the layout of SYSRES on 
different types on disks. 



IPL Records J and 2 (CKD) or Jbl£__ \ (FBA) 



This area contains the initial program load bootstrap program which 
causes the IPL retrieval program to be read from SYSRES and loaded into 

real storage. 
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V o lume L a be ls 

This area contains the address of the volume table of contents (VTOC) 
established when the disk pack Was initialized. The VTOC can be located 
on any cylinder outside the SYSRES File* 



System Director y 

This area contains records that show the start addresses of the library 

directories in the system, the number of partitions of the supervisor 

last IPLed, and the start address of the label information area. 



Ife§ Libraries 

For CKD, the directory and the member space of each library starts on a 
new track and the library uses all of the last allocated cylinder., For 
FBA, the library and the member space start on block boundary and the 
library uses all of the blocks allocated. 

The core image library contains for example the following programs in 
load format: 

system control programs 

linkage editor and librarian 

problem determination and system debugging aids 

Programming Languages (Assembler, PL/1, and so on) 

Oser Programs 

IBM Program Products 

The relocatable library contains programs in relocatable format 
(language translator output). All programs supplied in the core image 
library (except the transients) are also contained in this area. In 
addition, this area can contain other programs in relocatable format. 

The source statement library contains blocks in source language format. 
The books supplied by IBM are macro definitions in the assembler 
sublibrary. 

The procedure library contains procedures in card image format. 



lfe§ Lab el Information Area 

This area is reserved to contain standard, partition standard, and user 
labels for background and foreground partitions. 



THE SYSTEM DIRECTORY 

The start address of the system directory is: 

for CKD cylinder track 01 record 1 
for FBA block 0002 

For CKD, the system directory consists of four records of 80 bytes each f 
as shown in Figure 19. For FBA, it consists of one record of 66 bytes* 
The rest of the block is empty. 
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Syste m D irectory Records : 



1 


Record 


One 




field 
1 


bytes 
0-6 




2 

3 
4 


7-75 
76-77 
78-79 


2 


Record 


Two 




field 
1 


bytes 
0-6 




2 


7-7 9 


3 


Record 


Three 




field 
1 


bytes 
0-6 



Start Address of the Core Image Library in the 

format BBCCHHR. 

Reserved. 

Humber of Label Cylinders 

Address of the Label Area 



Start Address of the Relocatable Library in the 

format BBCCHHR. 

Reserved. 



Start Address of the Source statement Library 
in the format BBCCHHR. 
2 7-79 Reserved. 

4 Record Pour 

field bytes 

1 0-6 Start Address of the Procedure Library in the 

format BBCCHHR. 

2 7-59 Reserved. 

3 60-65 Number of Partitions of Supervisor last IPLed, 

4 65-79 Reserved. 

figure 19. System Directory on a CKD Device 

figure 20 shows the System Directory Format on an FBA device. The 
System Directory occupies the first 66 bytes of block 2 of the device- 
The library addresses are 4 digit block numbers. 

bytes 

0-3 Start address of the core image library- 

4-11 Zeros. 

12-15 Start address of the relocatable library. 

16-23 Zeros. 

24-27 Start address of the source statement library. 

28-35 Zeros. 

3 6-39 Start address of the procedure library. 

40-47 Zeros. 

48-51 Start address of the label information area. 

52-55 Zeros. 

56-59 Address of the last block of the label information 

area relative to the beginning of that area. 

60-65 Number of partitions of the supervisor last IPLed. 

Figure 20. System Directory on a Fixed Block Device 
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LIBRARIES ON CKD DEVICES 



CORE IMAGE LIBRARY 

The directory of a core image library has 2 or more tracks. Since the 
size of a track is device dependent , the number of 256-byte records per 
track is 

16 for a 3340 

17 for a 2314/19 
28 for a 3330/3333 
36 for a 3350 

Each record is preceded by a key containing the phase name from the last 
entry in this record. A directory record has the following format: 

256 



-i 



| LL | entry 1 \ entry 2 | ... entry n | U | 

i , , . » 

LL = the number of bytes used including LL 
entry = describes one phase in the library 
U = unused space 

The first entry of the directory, the library descriptor, has 58 bytes, 
the last entry has 12 bytes. All other directory entries have 18 to 30 
bytes. 

The first entry of the first record is called the library descriptor: 

beginning byte: 8 11 12 14 16 18 20 22 24 26 28 32 36 40 42 50 5b 

field number: \ 1 » 2 | 3 I 4 i 5 j 6 | 7 | 8 | 9 | 10 1 11 1 \2 \ 13 1 14 1 15| 16 1 17 1 

i. - . : -J 

1 Contains zeros or, after incomplete condense, X i 00 i | |C , DSTR0yD • . 

2 Address of the first deleted library record, otherwise X*PFFPFP*. 

3 Number of naif word containing user data after this byte 

4 Number of tracks per cylinder 

5 Number of directory tracks 

6 Number of library cylinders 

7 Number of active entries in the directory 

8 Number of directory records per track 

9 Number of directory records used 

10 Number of directory records available 

11 Number of member records per track 

12 Number of member records used 

13 Number of member records deleted 

14 Number of member records available 

15 Number of member records for automatic condense 

16 Date and time when the core image library has been updated. 
(Set by store clock instruction) , set to zero if the clock is 

defective. 

17 Reserved. 
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The directory entry describing a phase of the library has these fields: 
beginning byte: 8 1! 12 14 16 17 18 21 24 26 27 30 



1 Phase name 

2 Track address and record nqmber of phase, relative to the 
beginning of the directory. 

3 Number of half words containing user data after this byte. 

4 Number of text records. 

5 Number of text bytes in the last text record. 

6 Switch indicating type of phase. 

The settings X* 80 8 , X 8 40 8 , and x«2'0 i exist on disk and resident 

entries. 

The settings X 8 10 8 , X 8 08 8 , X 8 04 8 , X 8 02 8 , and X 8 01 8 are 

reserved for storage resident entries, e.g. SDL resident or 

partition resident. 

X 8 80' : self relocating phase 

X* 40* : relocatable phase 

X e 20 8 : SV& eligible 

X 8 10 f : phase has been placed in the SVA 

X 8 08 8 v : phase has been found in a PCIL 

X 8 04 8 s phase has not been found 

X 9 02 8 : entry has been filled in by SMAINDIfi for SDL 

entry has been filled in by FETCH for GENL 
X 8 01 9 ; used by $HAINDIR only, indicates that message 3M90I 

•PHASE IS NOT SVA ELIGIBLE 8 should be issued when SVA is 

built. 

7 STOW type byte, in CIL always X 8 00 8 

The fields 8 and 9 are not present if both are and the phase is not 

relocatable-. 

8 Load point at linkage edit time 

9 Entry point at linkage edit time* 

The fields 10 to 12 are only present for relocatable phases. 

10 Number of RLD items. 

11 Number of additional RLD blocks. 

12 Partition starting address at linkage edit time. 

13 Entry point of phase in SVA, only used for entries in the SDX. 

The last entry in the directory is a twelve byte entry with a dummy 
phase name containing 8X f FF 8 , a dummy phase address of 3 bytes 
containing zeros, and a dummy field 3 of 1 byte also containing zeros. 

Following the directory are the records of the meraaer space in the core 
image library. Figure 21 illustrates the structure of tracks, records, 

and phases where each record has 1024 bytes and each phase starts on 
record boundary. 
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First Track 



Record 1 \ Record 2 | Record 3 \ 

1. + +. 



| Record N 



Phase A 



| Phase A I Phase A 



| Phase A 



Second Track 



\ Record 1 \ Record 2 | Record 3 | 

| h + _ h 



f Record N 



| Phase A | | Phase B | Phase B | 

i , 



IPhase B } 



nth Track 



Record 1 | 



Record 2 | Record 3 | 

: + +- 



| Record N 



Phase X | 



| e mp ty 



\ empty 



} empty 



Last Track 



Record .1 | Record 2 | Record 3 | 

+ — , + + .. 



empty 



I empty 



I empty 



I Record N 

_+ , 



I empty 



The last record of each phase can contain less than 1024 bytes. 



Figure 21. Core Image Library Member Space on a CKD Device 



The remainder of the last record of a phase is used for relocation 
information for each individual address constant in the phase. Thus, 
the last TXT record of a phase has the format: 



1 - ■ "'■'■ " - 

I Field name | TXT » AL | M | PPP | M I PPP I ... 
1 > 1 1 1 1 1 1 
I Field length | 0-max.l 0—3 1 1 | 3 | | | 
I 


i 


» Field no. | 1 | 2 | 3 } 4 | \ \ 





1 The rest of the code. Overflow to the next record occurs either 
after the AL field or after each MPPP item. 

2 Used to align the filPPP on a fullword boundary. 

3 Bit string indicating the object length of the address constant 
(bits 3 and 4) and whether the relocation factor is to be added 
or subtracted (bit 7). 

4 Address of the address constant when the phase was link-edited e 



Data Areas 221 



RELOCATABLE LIBRARY 

The directory of a relocatable library has one or more tracks. The 
number of 320 bylbe records per track varies with the track size of the 
device: 

for 2314/2319 and 3340: 17 
for 3330. 28 

for 3350: 38 

Each record takes 20 entries of 16 bytes each. A directory entry 
describing one module (the output of a complete language translator run) 
has the following format: 



8 



10 



14 



16 



| mod. name | rec. no. | CCHR | change level | 
I 1 { 2 | 3 | 4 | 



1. Module Name 



2. Number of Records 



8 characters from the •CATALR 1 control statement. 
An * in the first character indicates the logical 
end of the directory. 

Total number of text records required to 
contain this module. 



3. Disk Address 



4. Change Level 



Start disk address of the first text record of 
this module in the relocatable library. 
The cylinder address is stored here in reverse 
form (CjC!) . The field is then expanded to a 
c 1 c 2 h 1 h 2 R seek address. 

Module identification. 



The first five entries of the directory constitute the library 
descriptor and have together the following contents: 



beginning byte: 



15 23 30 37 44 48 52 56 60 64 66 68 70 80 



field number: | 1 f 2 | 3 | 4 | 5 | 6 | 7 | 8 \ 9 | 10 | 11 | 12 | 13 | 14 | 15 | 

L _, *. J 

1. Start address of the directory. 

2. Address of the next availabel entry in the directory. 

3. find address of the directory including last entry. 

4. start address of the member space. 

5. Address of next available record in the member space. 

6. End address of the library. 

7. Number of active entries in the directory. 

8. Number of records allocated for the member space. 

9. Number of active records in the member space. 
10. Number of deleted records in the member space, 
11* Number of records available for additions. 

12. Automatic condense limit for the library. 

13. Total number of cylinders for the member space. 

14. Number of tracks for the directory. 

15. Reserved. 

Following the directory are the 322-byte records of the member space in 
the relocatable library. Figure 22 illustrates the structure of tracks, 
records, and modules of the relocatable library for the various disk 
devices. 
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First Track 



| Record | | 

I ■ 1 . I 2 | 



I s 



Module A 



Module B 



Module C 



Module D 



Second Track 



Record 
1 



I s 



Module D 



Last Track 



| Record | 
I 1 I 

I 

I 

i 



I s 



s = the number of records per track 
s = 16 for 2314/19 

17 for 3 340 

28 for 3330/3333 

37 for 3350 



Figure 22. Relocatable Library Member Space on a CKD Device 

As figure 22 shows, the members of the relocatable library, called 
modules, always consist of several records. They always start on record 
boundary but can span over track boundary. The different types of 
contents of those records which make up a module are illustrated in 
figure 23. 
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I 
I 

V 

1 I 

«•_ 

1 I 

.♦•_ 

2 I 
+ 

2 I 

2 I 

2 ) 

2 I 

2 | 

i v- 

2 Byt 



1st byte = Number of logical records (1 in Linkage 

Editor control cards 1 or 2 in 12-2-9 cards) 
2nd byte = Record length (160 in all records) 



A0 | INCLUDE | 
♦ 1. 

AO | PHASE | 
A0 | ESD 

A0 | ESD 

♦ 

A0 | TXT 

+ 



Unused 



Unused 



I 



\ 

♦ — 

I 



A0 | REP 
AO | 






AO | 



es 



| Unused | 
RLD | 
RLD | END 




160 Bytes 

1 — V 



160 Bytes 



322 Bytes 



| Linkage Editor 
> Control Cards 
I 

-i 

I 
I 
I 
| 12-2-9 Cards 

I 



Figure 23. Module in the Relocatable Library 

The formats of ESD, TXT, and RLD records are shown in Figures 24-26. 
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EXTERNAL SYMBOL DICTIONARY 



SYMBOL 


TYPE 


ID 


.ADDR 


LENGTH 


LD 


1 JBLNK10 


SD 


01 


001900 


000928 




1 JBLNK 


LD 




001900 




01 


1 JBLOV 


LD 




002008 




01 


1 JBINL 10 


SD 


02 


002228 


000650 




IJBINL 


LD 




002228 




02 


1 JJCPD3 


ER 


03 








1 JJCPD1 


ER 


04 








I JBESD10 


SD 


05 


002878 


000458 




ETC ... . 













ID 



Example of 8 
ESD Items from 
Assembler 
Output Listing. 



Assembler Output or 
RSERV Output ESD 
Cards 



Blank 



Blank 



Relocatable 
Library Block 
(322-Bytes) 




Seq. 
No. 



Variable Field 
' (48 Bytes) 



Relocatable Library 
E§D Record 
(160-Bytes) 



1 60 Bytes 



1 60 Bytes 



Relocatable 
Library Track 



322 Bytes 



Figure 24. Format of ESD Records 
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LOC 


OBJECT CODE ^ 




00 1800 


00000000 




00 1804 


000D 




00 1806 


0000 


Example of Text Contained 


00 1808 


47F0 FOOC 


> in Relocatable Text Records 


00 180C 


9035 FODC 


from Assembler Output Listing 


00 1810 


9103 1015 




00 1814 


4770 F074 




. . . ETC. 







Assembler Output 
or RSERV Output 
TXT Cards 



56 Bytes of Text 
(Machine Language 
Generated by Assembler) 



Relocatable Library 
TXT Record 
(160 Bytes) 



Relocatable 
Library Block 
(322 Bytes) 




56 Bytes of Text 



Card 
Deck 
Seq. 
No. 



Seq. 
No. 



Variable Field 
-(56 Bytes) 



TXT 

56 Bytes from 

2nd Card 



TXT 
Next 
Card 



Variable Field (136 Bytes) 



160 Byes 



1 60 Bytes 



Relocatable 
Library Track 



322 Bytes 



Figure 25. Format of TXT Records 
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RELOCATION DICTIONARY 



POS.ID 



REL.ID FLAGS ADDRESS 



01 


01 


OC 


001928 


01 


01 


08 


001 B39 


01 


02 


08 


002168 


02 


02 


08 


0021 D5 


02 


02 


OC 


0021 D8 


02 


02 


08 


002475 


02 


02 


OC 


002478 


03 


03 


08 


002899 


03 


04 


08 


0028A0 



Example of RLD items 
from Assembler output 
listing 



Assembler output or RSERV 
output RLD cards 




%J Card Type 

I 



All 9 RLD entries listed above are shown here as: 

• 8-byte entries for items with R or P IDs unlike the 
preceding item. 

• 4-byte entries for items with R and P IDs the same 
as the preceding item. 



Relocatable Library 
RLD Record 
(160 bytes) 



Relocatable 
Library Block 
(322 bytes) 




Card 
Deck 
Seq. 
No. 



Variable number of RLD entries, 
8 or 4 bytes each. 



Seq. 
No. 



RLD Entries 
from 2nd Card 



Variable Field (128 Bytes) 



1 60 bytes 



1 60 bytes 




Relocatable 
Library Track 



322 Bytes 



5 



Figure 26. Format of RLD Records 
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SOURCE STATEMENT LIBRARY 

The directory of a source statement library has one or more tracks. The 
number of 16 0-byte records per track varies with the track size of the 
device : 

for 2314/2319: 27 

for 3340: 26 

for 3330: 44 

for 3350: 55 

Each record takes 10 entries of 160 bytes each. 

A directory entry describes one member of the source statement library, 
called a book. 

A directory entry has- the following format and contents: 

beg. byte 1 9 12 14 16 



i ~ 

Field name f Pre— | Record name \ CHR | rec. no. J change 
| fix | I I I level 

I + , + +. — , + 

Field no | 1 | 2 | 3 » 4 | 5 

i 



1. Sublibrary prefix Any alphameric character § %, ± 9 or a, M A f, r rl C" 

and "E 11 are reserved for Assembler and COBOL. 
An * in this field indicates the logical end of 
the directory. 

2. Record name 8 characters from the "CATALS" control statement, 

3. Disk address Start disk address of the first record of this 

book. 

The two high order bits of the H-field in this 
3-byte address are used as the two low order 
bits of C1 in the 5-byte seek address C1C2H1H2R 
to which the 3 byte address is expanded. 

4. Number of records The total number of records required to contain 

this book in the source statement library. 

5. Change level Book identification. 

The library descriptor occupying the first five entries of the directory 
has the same format as in the relocatable library. See above. 

Following the directory are the 160-byte records of the member space in 

the source statement library. Figure 27 illustrates the structure of 

tracks, records, and books in the source statement library for the 
various devices: 
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First Track 

, . . . -^ 

records | 1 | 2 | 3 | .. | | | | | s | 
contents | Book A | Book B | Book C | Book D | Book £ j 

L J 



Second or nth Track 

records | 1 | 2 | 3 | .. | | | s | 

I . 1 

contents | Book E | Book N | empty | 



Last Track of Last Cylinder 

r 1 

records | 1 | 2 | 3 | . . . | s | 
I 1 

contents | empty I 

s = the number of records per track 
= 26 for 33«»0 
27 for 2314/19 
4<* for 3330/3333 
55 for 3350 

Figure 27. Source Statement Library Member Space on a CKD Device 

As Figure 27 shows the members of the source statement library* called 
books, consist of one or more records. They always start on record 
boundary. 

A book is a sequence of source language statements (either macro 
definitions or source deck books) in compressed format. The compressed 
format for input to the source statement library is as follows: 

Format; xynn ... nnxynn ... nnxynn ... 

where: x indicates the number of nonblank characters (maximum 15) 
y indicates^ the number of blanks following 
nn is any nonblank character 

Example: Tne statement: 

LABEL1bbMVCbbbHERE,THEREb ... bC0MNENT1bC0MMENT2 . . . 

will be in compressed format: 

6 2 LABEL 1 33MVCAFHEKE,THERE058 1C0MMENT 1 
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PROCEDURE LIBRARY 



The directory of the procedure library has the same structure as that of 
the source statement library with 160~byte records and ten entries per 
record. Also the library descriptor is identical to those of the 
relocatable and source statement libraries, occupying five entries or 80 
bytes at the beginning of the directory. 

However, the directory entry has a different format and contents as 
follows: 



beginning byte ( 

i 

field no. | 

1. Procedure name: 



2. Number of records: 

3. Disk address: 

4. Program switches: 

5. Change level: 



10 



13 



14 



16 



One to eight alphameric char 
which must be alphabetic. Pi 
indicates that this entry is 
logical end of directory. 
Total number of records regu 
procedure. 

Start address of the first r 
procedure. The two high bits 
this 3-byte address are used 
bits of the C1C2H1H2R seek a 
3-byte address is expanded. 
If this byte contains X f 80*, 
contain SYSIPT data. 
Procedure identification. 



acters, the first of 
rst character blank 
deleted, * indicates 

ired to contain the 

ecord, of this 
of the H-field in 
as the two low order 

ddress to which the 

the procedure may 



Following the directory are the 80-byte records of the member space in 
the procedure library. The number of records per track has been 
determined as: 

34 for 3340 
40 for 2314/19 
61 for 3330/3333 
72 for 3350. 



Each record contains one statement in card image format, 
member space is unformatted. 



The unused 
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LISM1ISS ON FIXED BLOCK DEVICES 

FBA library sizes are defined by the user via the ALLOC/NEWVOL functions 
of the MAINT/CORGZ programs or via BACKUP/RESTORE. He has to specify 
the sizes of total library space and directory space. 

Example: CL = 8000 (201) 

This means 8000 blocks for the total library and 201 for the directory 
space. 

FBA libraries have the following structure: 

Library 

directory space allocated 

library descriptor record (see Figure 28) 

directory records used (see Figure 28) 

directory records available 
member space allocated 

member records 

available blocks 

All addresses given in a directory are relative to the beginning of the 
library. 

Parts of blocks which are not occupied by records and also available 
records can contain arbitrary data. 



DIRECTORY SPACE ON A FIXED BLOCK DEVICE 



Tfce kii2£ary_ Descriptor Record 

The library descriptor record is the beginning of each library 
directory, has 86 bytes (CL 106 bytes), and is of the same format for 
all libraries as described in Figure 28- The rest of the 512 ftyte block 
is not used- 

The library descriptor record contains the following variables: 

N, N1 : NUMBER OF DIRECTORY RECORDS (DERIVED FROM USER SPECIFICATIONS) 

M : NUMBER OF DIRECTORY RECORDS (1 TO N-1) USED, DELETED, OR AVAILABLE 

P, P1 : NUMBER OF BLOCKS ALLOCATED TO MEMBER SPACE (DERIVED FROM USER 

SPECIFICATION) 
Q : NUMBER OF MEMBER BLOCKS ( O TO P ) USED, DELETED, OR AVAILABLE 
Z : NUMBER OF USED BYTES IN DIRECTORY RECORD. 

All addresses in this figure are relative to the beginning of the 
library. 
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field | Displa- 1 Length | Description | Set to .... | Changed to . + . 
Name Icement |<BYTE>| I by ... { by ... 


DESR | | 8 {Reserved { I 

{ { ( { XLS'OO 1 ( X f 00" .^DSTROYD 1 

{ { | ( { by CONDS at begin of 

III {by RESTORE, { CL CONDS 

{ | JThis field is used | NEWVOL, ALLOC { XL8*Q0* 

{ { (during MAINT CONDS or { {by $MAINDIF at end 

| | | ALLOC to indicate | { of CL CONDS 

{ | {inconsistent library | { 

{ | {status. { { 


DESLD { 8 { 2 {Library Descriptor { I 
{ ( {Record Length { CL : X"0064 , { 
| | |<in bytes> | RL,SL,PL ; X^OSO 1 ! 

1(1 | by RESTORE, { 
I { | | NEWVOL, ALLOC | 


DEST { A { 1 ILibrary Type { CL : X 9 8Q' { 
{ || (EL : X f 40 f | 
I I I { SL : X"20» { 

{ { { { PL : X'10' { 

{ { {The first half byte { { 
{ | Igives the library type, { by RESTORE, { 
{ { {the second half byte is | NEWVOL, ALLOC { 
{ | {reserved. { { 


DESLDE | B ( 1 {Length of Directory { { 
{ { {Entry <in bytes> { { 
{ { { | CL : X § 1E« { 

{ | | If directory entries | RL,SL,PL : X'OO 1 | 

{ | {are of fixed length, { { 
{ | {the length is given in | by RESTORE, { 
| | jthis filed. If | NEWVOL, ALLOC { 
{ | {directory entries can J { 
{ { { be of variable length, { { 
| { {a length field is | { 
|| | provided there. { I 


DESBAD | C | 4 {Address of Start Block J | 
I | {of the First Directory { 1 { 
I | {Record <in blocks> { { 

{|| {by RESTORE, | 

| | { | NEWVOL, ALLOC { 


DESEAD | 10 (4 | Address of the Last | I 

| | |Block in Directory { CL : 4N minim. 8{ CL : 4N; minim. 8 

{ { (Space <in blocks> { RL,: ) 2N minim. 2{ RL,: ) 2N; minim. 2 

{ | |It points to the last | SL, ) { SL, ) 

{ { {block allocated to the { PL ) { PL ) 

{ { {directory, (i.e. for CL{ { 

{ ( | to the last block of | by RESTORE, | by ALLOC (MAINT) 

| | |the link record). | NEWVOL, ALLOC | 


DESFFD (14 | 6 |First Available Entry | { 
( | {in Directory { ( 



igure 28. Library Descriptor for Libraries on a Fixed Block Device (Part 1 of 4) 
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Field ( Displa- | Length! Description | Set to . . . ( Changed to ... 
Name (cement |<BYTE>( ( by . . . (by ... 


DESFFDBJ 14 \ 4 (Block Number of ( CL : 1 + 4M ( CL : 1+4M 
| ( (Directory Record Con- ( RL,SL, PL : 1 + 2M ( RL, SL, PL : 1 + 2M 
I ( |taining First Available! empty CL, ( 
| ( (Entry <in blocks> ( RL, SL, PL: ( 


DESFFDDI 18 ( 2 (Displacement to First ( CL : X - 02« ( CL : X , 02' 

| ( (Available Entry ( <Z <X«0800 , ( <Z <X i 0800» 

( ( (<in bytes> ( Rl, ) | RL, ) 

| ( (The first available ( SL, ) X l 02« ( SL, ) X , 02 l 

( ( (entry is always the | PL : ) <Z <X , 0400 , ( PL: ) <Z <X , 0400 I 

( | Idirectory end indicator( ( 

| | ( (* or XL8 8 FF«). A new ( by RESTORE, ( BY LNKEDT ($MAINDIF) , 

( ( (entry overwrites this ( NEWVOL, ALLOC, ( CONDS, CATALx, 

j ( (indicator. | DELETx ALL ( COPYX, UPDATE 


| 1A I 6 |Reserved for Condense ( ( 
( | | (CONDS) I | 


DESBAL ( 20 | 4 | Address of First Block | CL : 1+4N; minim. 9( CL : 1+4N1; minim. 9 
| | |<in blocks> | RL, ) | RL, ) 

j ( ( i SL, )1+2N; minim. 3| SL, )1+2N1; minim. 3 
< i I I PL :) ( PL :) 

( ( i ( by RESTORE, ( by ALLOC (MAINT) 
( | ( i NEWVOL, ALLOC ( 


DESEAL (24 | 4 | Address of Last BlocK j ( 

( ( (of Member Space ( CL : 4N+P ( CL : 4N1+P1 

| ( (<in blocks> ( RL, SL, PL : 2N+P J RL, SL, PL : 4N1+P1 

( ( (This block points to ( ( 

( ( (the last £>lock alio- ( ( 

( ( (cated to a library, | by RESTORE, ( by ALLOC (MAINT) 

( ( |i.e. it includes any | NEWVOL, ALLOC ( 

( ( (blocK(s) which may not ( ( 

i | (be useaiDle to store ( I 

| ( (members for member re- ( ( 

( ( (cord > FBA block size. ( ( 


DESFFL (28 (4 (Address of First Avai- ( CL : 1+4N+2Q ( CL : 1+4N+2Q 
( ( (lable Block in Member ( RL, ) J RL,SL,PL : 1+2N+Q 
( ( | Space <in blocKs> | SL, ) 1+2N+Q ( 

( ( | | PL :) (by CATALX, COPYx, 
111 i empty CL,RL,SL, | CONDS, UPDATE, 
| ( | ( PL : DESBAL ( LNKEDT($MAINDiF) 

( ( (The next member catalog by RESTORE, ( CL : H4N1 + 2Q 
| | (gued starts at this ( NEWVOL, ALLOC, j RL,SL,PL : 1+2N1+Q 
| ( (address. ( For CL, this( DELETx ALL ( 

( ( (holds also for linked ( ( by ALLOC (MAINT) 
( ( (members.) ( ( 


DESFDL | 2C ( 4 (Address of First ( ( 

( ( (Deleted Member Record ( CL,RL,SL,PL : F*0<{ CL : 1+4N+2Q 

( ( |<in blocks> ( ( RL,SL,PL : Not Used 

( ( | | by RESTORE, ( 

(II | NEWVOL, ALLOC, | £>y DELETC ($MAINDIF) 

III I DELETx ALL | 

( ( | | ( CL : F'0 f 

( || I I by CONDS (SMAINDIF) 



Figure 28. Library Descriptor for Libraries on a Fixed Block Device (Part 2 of 4) 
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Field | Displa- | Length | Description ( Set to • . . | Changed to ... 
Name | cement |<BYTE>-| | by ,.- | by . -. 


DESACT | 30 | 4 | Number of Active | I 

| | (Members <in blocks> ( CL,RL,SL,PL : Z ( CL, RL, SL, PL : Z 

I || I empty CL,RL,SL, | 

III | PL : F'O* | by CATALx, DELETx, 

| | | | | COPYx, $MAINDIF 

III | by RESTORE, | 

| | | Number of members which ( NEWVOL, ALLOC, | 

| | |are accessible in a | DELETx ALL | 

I | |library. For CL, linked| I 

| | |members are however not| I 


DESDEL | 34 | 4 (Number of Deleted | | 

| | |Members I CL,RL,SL,PL : F«0«| CL, RL, SL, PL : Z 

III | by RESTORE, ( by DELETx ($MAINDIF) , 
|(| ( NEWVOL, ALLOC, ( UPDATE, CATALx, 
III | DELETx ALL J LNKEDT ($MAINDIF) 

| | INumber of members which| ( CL, RL, SL, PL: F 1 *) 1 

( j |are marked "deleted 1 I I 

| | |and are thereforce not | I by CONDS ($MAINDIF) 

| ( (accessible. Linked meoi J j ( 

I | (bers (CL) are not ( ( 

| | | marked deleted after a | I 

I | |link step. ( ( 


DESNDB | 38 1 4 | Number of Directory | I 
| | IBIocks Available | I 

( | (<in blocks> ( CL ; 4M | CL : 4M 
| | | | SL # RL, PL : 2M | SL, RL, PL : 2M 
III | empty CL : 4N-4 ( 

( ( | ( empty RL, | by CATALx, CONDS, 
| || | SL, PL : 2N-2 | COPYx, UPDATE, 
III I I LNKEDT ($MAINDIF) 
| | |Number of blocks avai- | | CL : 4M1 
| | liable to contain direc-| I SL, RL, PL : 2M1 
| | | tory records. For CL, | I 

( ( | the directory record ( I by ALLOC (MAiNT) 
| | | for linked phases is | I 
| | (not reflected in this | I 
( ( Inumber. ( ( 


DESNDU | 3C 1 4 |Number of Directory | I 

| | IBIocks Used | empty CL : 4( by CATALx, LNKEDT 
| | | ( empty RL,SL,PL : 2| ($MAINDIF) , COPYx, 
III ( ( UPDATE, CONDS 

III | by RESTORE, | 

| ( (Number of blocks which ( NEWVOL, ALLOC, | CL : 4M1 

( ( (contain directory ( DELETx ALL | Rl, SL, PL : 2M1 

| | | records with at least | I 

I | |one entry (end indica- | I by ALLOC (MAINT) 

| | | tor is considered an ( ( 

| | (entry) • The Directory ( ( 

| j (record for linked mem -| I 

| | | bers (CL) is not re- | I 

| | (fleeted in this number. | ( 



Figure 28. Library Descriptor for Libraries on a Fixed Block Device (Part 3 of 4) 
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Field | Displa~| Length | Description | Set to . • • | Changed to 
Name | cement |<BYTE>| I by . • . | by ... 


DESNLB | 40 | 4 IMember Blocks Availablel | 

I II I CL : 2Q | CL : 2Q 
III | RL, SL, PL : Q | RL, SL, PL : g 
III I empty CL,RL, | 

III | SL,PL: P | by CATALx, LNKEDT 
III I I (SMAINDIF) , 
III | by RESTORE, | COPYx, CONDS, 
III | NEWVOL, ALLOC, | ALLOC (MAINT) , 
III I DELETX ALL | UPDATE 
| | |This number excludes | Note : An empty CL| 
| | |the last block of the j must contain a | 

| | |has a odd number of | available blocks- | 
| | |blocks, since one re- | P may be adjusted.! 
| | |cord in it takes 2 | I 
I | |blocks. I I 


DESNLU | 44 | 4 IMember Blocks Used | I 

I II I CL : 2Q | CL : 2Q 
111 | RL, SL, PL : g | RL, SL, PL : y 
III I empty CL : F" 0" | 

III I empty RL,SL, | by CATALx, LNKEDT 
I || | PL : F« 0' | ($MAINDIF) 
III | I COPYX, UPDATE, 
III | by RESTORE, | CONDS 
111 | NEWVOL, ALLOC, | 
III | DELSTX ALL | 


DESLSD | 48 | 4 IMember Blocks Deleted | I 

I II I CL : 2Q | CL : 2Q 

III | RL, SL, PL : Q | RL, SL, PL : Q 

III | empty CL : F'O" | 

III | empty RL,SL, | by CATALx, DELETx, 

III I PL: F'O 1 | COPYX, LNKEDT 

| | | | | (SMAINDIF) , UPDATE 

III | by RESTORE, | CL,BL,SL,PL : F« ' 

| | | | NEWVOL, ALLOC, | 

111 | DELETx ALL | by CONDS 


DESCL 1 4C | 4 |AvailaJDle Member Blocks! | 

| | |for CONDS. | CL,RL,SL,PL : F^'l CL : 2Q 

I 1 1 1 1 ^L, SL, P r : Q 

| | I Note : This number when| by RESTORE, | 

| | Ireached in an operation! NEWVOL, ALLOC, | by CONDL 

I | |will result in a | I 

I | |message. I | 



The following items are valid only for CL 



DESDTE 



50 



Date and Time of Last 
Update 



CL : FM« 

by RESTORE 



I 

| Date and Time 

I 

| LNKEDT, COPYC, CONDS 

| CL via SMAINDIF; 

| NEWVOL, ALLOC 



58 



12 



Not Used 



Figure 28. Library Descriptor for Libraries on a Fixed Block Device (Part 4 of 4) 
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2i£§.2t2£l Records 2EL ^ Ei^ed £i22ii 5§Xi2§ 



The directory records on fixed blocic libraries have a length of 1024 
bytes for EL, SL, and PL and of 2048 bytes for CL. They have the 
following format: 



beginning byte 
field name 



1 or 2K 



U | entry 1 | | entry 2 | 



entry n | F | 



U = number of used bytes in the record 

entry = CL - 30 bytes 
EL - 18 bytes 
SL + PL - 19 bytes 

maximum number of entries: CL - 68 

EL - 56 
SL + PL - 53 

F = the free space in the record 

The last record in the CL directory is reserved for the link directory- 
Following are the list of contents of directory entries for each library 
type. 

Core Image Directory Entry: 



CDYBEG 

CDYNME 

CDYADE 

CDYNTX 

CDYNTB 

* 

CDYSW 

* 
* 

* 
* 

CDYTBY 
CDYLPL 
CDYEPL 
CDYNRD 
CDYNRB 
CDYPST 

CDYEND 



EQU 

DS 

DS 

DS 

DS 

DS 



DS 
DS 
DS 
DS 
DS 
DS 

EQU 



XL8 
XL4 
XL2 
XL2 

XL1 



ON 

DISK 

ONLY 



FOR 
IN 

CORE 
DIE. 



XL1 
XL3 
XL3 
XL2 
XL1 
XL3 



BEGIN OF DIEECTOEY ENTRY DEFINITION 

NAME OF PHASE. 

ADDEESS OF PHASE IN LIBEARY <BL>. 

NUMBER OF TEXT RECORDS <1024BY>, 

NUMBER OF TEXT BYTES IN LAST TEXT 

RECORD <BY>. 

SWITCH BYTE: 

| X'SO*: 

i X - 40«: 

| X»20 l : 



SELFRELOCATING PHASE, 
RELOCATING PHASE, 
SVA ELIGIBLE PHASE, 



XMO': PHASE HAS BEEN PLACED 

IN THE SVA. 
X^S 1 : PHASE HAS BEEN FOUND IN 

PRIVATE CORE IMAGE LIB. 
X f 04«: PHASE HAS NOT BEEN FOUND. 
X*02 f : ENTRY HAS BEEN FILLED IN 

BY •IJBLBIQF 1 . 

X f 01 f : FOR •IJBLBIOF 1 ONLY: 

TURNED ON BY 'CATALOG 1 
TO INDICATE THAT MESSAGE 
3M90I SHOULD BE ISSUED 
WHEN SVA IS BUILT. 

TYPE BYTE FOR STOW TABLE. 

LOAD POINT AT LINKAGE EDIT TIME. 

ENTRY POINT AT LINKAGE EDIT TIME. 

NUMBER OF RLD ITEMS IN LAST TEXT REC, 

NUMBER OF ADD.RLD RECORDS <1024BY>. 

PARTITION START ADDRESS AT LINKAGE 

EDIT TIME. 

END OF DIEECTOEY ENTEY DEFINITION 
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Relocatable Directory Entry: 



RDYBEG 


EQU 


* 


RDYNME 


DS 


XL8 


RDYADR 


DS 


XL4 


RDYLE 


DS 


XL1 


RDLMD 


DS 


XL3 


RDYCHD 


DS 


0XL2 


RDYCHDV 


DS 


XL1 


RDYCHDM 


DS 


XL1 


RDYEND 


EQU 


* 



BEGIN OP DIRECTORY ENTRY DEFINITION. 

NAME OP MODULE. 

ADDRESS OP MODULE IN LIBRARY <BL>. 

LENGTH OF ENTRY <BY>. 

LENGTH OF MODULE <322-BYTE RECORDS>. 

CHANGE IDENTIFICATION: 

VERSION, 

MODIFICATION. 
END OF DIRECTORY ENTRY DEFINITION. 



Source Statement Directory Entry: 



SDYBEG 


EQU 


* 


SDYNME 


DS 


0XL9 


SDYSUBLB 


DS 


XL1 


SDYBKNME 


DS 


XL8 


SDYADR 


DS 


XL4 


SDYLE 


DS 


XL1 


SDLMD 


DS 


XL3 


SDYCHD 


DS 


0XL2 


SDYCHDV 


DS 


XL1 


SDYCHDM 


DS 


XL1 


SDYEND 


EQU 


* 


SDYNDER 


EQU 


53 



BEGIN OF DIRECTORY ENTRY DEFINITION. 
NAME OF BOOK: 

SUBLIBRARY QUALIFIER r 

BOOK NAME. 
ADDRESS OF BOOK IN LIBRARY. 
LENGTH OF ENTRY. 

LENGTH OF BOOK = 160-BYTE RECORDS>. 
CHANGE IDENTIFICATION: 

VERSION, 

MODIFICATION. 
END OF DIRECTORY ENTRY DEFINITION. 
NO OF DIRECTORY ENTRIES IN A DIRECTORY 



Procedure Directory Entry: 



PDYBEG 


EQU 


* 


PDYNME 


DS 


XL8 


PDYADR 


DS 


XL*4 


PDYLE 


DS 


XL1 


PDLMD 


DS 


XL3 


PDYCHD 


DS 


0XL2 


PDYCHDV 


DS 


XL1 


PDYCHDM 


DS 


XL1 


PDYSW 


DS 


XL1 


* 






* 






* 






* 






* 






* 






* 






* 






PDYEND 


EQU 


* 



BEGIN OF DIRECTORY ENTRY DEFINITION. 

PROCEDURE NAME. 

ADDRESS OF PROCEDURE IN LIBRARY <BL>. 

LENGTH OF ENTRY <BY>. 

LENGTH OF PROCEDURE <80-BYTE RECORDS>, 

CHANGE IDENTIFICATION: 

VERSION, 

MODIFICATION. 
SWITCH BYTE: 



x^so 1 

X»40* 
X^O* 
XMO 1 
X • 08 • 
X»04* 
X»02» 
X»01» 



PROCEDURE WITH SYSIPT DATA, 

UNUSED, 

UNUSED, 

UNUSED, 

UNUSED, 

UNUSED, 

UNUSED, 

UNUSED. 



END OF DIRECTORY ENTRY DEFINITION, 
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MEMBER SPACE 01 A FIXED BLOCK DEVICE 

The records of a member are stored contiguously in fixed blocks, except 
in the procedure library where each block contains up to six job control 
statements, unused space, and control information. Each member starts 
on block boundary. Therefore the members can be addressed by block 
number. Their formats are like in CKD: 

CL - TXT and RLD records - 1024 bytes 

RL - ESD, TST, RLD records - 322 bytes 

SL - source statements compressed - 160 bytes 

PL - job control statements - 80 bytes 



P RIVAT E LIBRARIES 

Three types of private libraries are supported: 

core image, 

relocatable, and 

source statement libraries. 

The private libraries may be on the same disk pack as the SYSRES file. 
Otherwise they have to be on the same type of disk unit as the SYSRES 
pack. An exception are the core image libraries which may be on any 
disk device (but not for CORGZ COPY) • 

Several private libraries may be on the same disk pack, but in such 
cases they must have different file identifications. For example, two 
private source statement libraries have the same file name IJSYSSL. 
Therefore, their file identification must be different; for example, 
ONEPRSL and TWOPRSL. 

Each private library has an organization identical to the corresponding 
system library. 

Each private library contains only one directory. The directory of each 
library starts at the lower limit of the file and consists of the number 
of tracks specified in the NEWVOL control statement for the CORGZ 
program. The member space of each library starts on the track following 
the last track used by its directory and uses the rest of the 
cylinder (s) specified in the NEWVOL control statement. The private 
libraries thus have the same format as the system libraries on SYSRES. 

The contents and organization of the private libraries are the same as 
for the system libraries. 

Private libraries are created by the HEWVOL function of the CORGZ 
program. All librarian functions may be performed on private libraries 
as well. 

References can be made to a private library only if SYSCLB, SYSRLB, or 
SYSSLB are assigned. When any of these assignements are made the 
corresponding system library cannot be changed. 
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GENERAL OVERVIEW OF LIBRARY RECORD SIZES 



£^scri£tor 

CKD: CL 

RL 

SL 

PL 

FBA : CL 

all ) 
others ) 



58 bytes 
= 1 entry 
80 bytes 
= 5 entries 
80 bytes 
= 5 entries 
like SL 

100 bytes ) 

) 

80 bytes ) 



on 256 byte record 
on 320 byte record 
on 160 byte record 

on 512 byte block 



2iE§ctorx lD:t£i§s: 

CKD : CL : 18-30 bytes 

RL : 16 bytes 

SL+PL : 16 bytes 



FBA 



: CL : 

RL : 

SL+PL : 



30 bytes 

18 bytes ) 

19 bytes ) 



on 256 &yte record 
on 320 byte record 
on 160 byte record 

on 2048 byte record 
on 1024 byte record 



Member Records: 

FBA and CKD : CL 
RL 
SL 
PL 



1024 bytes 

322 bytes 

160 bytes 

80 bytes 



Figure 29. Library Record Size Overview 
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DIAGNOSTICS 



LABEL LIST FOR CHARTS 01-93 



COPYSERV: 
CHECKTYP 1 
COPYSERV 1 

CORGZ: 
BEGINO 2 
END 3 
EXIT 3 
FROMSIX 3 
INITCK 2 
ITSALLOC 3 
ITSCOPY 3 
ITSMERGE 3 
ITSNEWVL 3 
RTN2 3 
STARTR 2 
STMTSCAN 3 

CQRGZ3: 
ALLOCMB 4 
CALSPACE 4 
CHKTOD 5,6 
CONTALL 4 
CONTALLN 6 
CONTRDCD 5 
COPYAL1 6 
COPYDIR 4 
COPYEND 5 
COPYI 4 
COPYMEM 4 
COPYMEM1 U 
COPYPL 4 
COPYRL 4 
COPYSL 4 
COPYXALL 6 
COPYXNEW 6 
DBALLOC 4 
DONCHKT 5 
INITCPY 4 
JOINT 4 
JOINT1 4 
NOTCALL 4 
NXTCOMP 4 
STNBEL 4 
TSTALL 6 
TSTCONT 5 
TSTMORE 5 
TSTNEW 6 
WRTLAST 5 

CORGZ6: 
ALLOCMB 8 
BEGIN6 8 
CHKALLOC 8 
CONTALL 9 
CONTCNEW 9 



COPYCALL 9 


NOTCALL 


13 


COPYCNEW 9 


NXTALL 


14 


COPYMEM1 8 


NXTNEW 


14 


COPYWHAT 8 






COPY$$ 8 
DBALLOC 8 


CORGZ 6F: 
BEGIN6F 


15 


GETCARD 9 


CHKDUPNM 


15 


JOINT 8 


CHKNEW 


15 


JOINT1 8 


COMPARE 


15 


NXTCOMP 8 


CONTFDIR 


15 


NXTCOMPF 9 


COPYCALL 


15 


NXTCOMPN 9 


COPYWHAF 


15 


PROCSTT 7 


DOMEMBER 


17 




DOPHASE 


16 


CORGZ 7: 


DOPHASE2 


16 


ALLOC 10 


ENDCL'i:< 


16 


ALLOCA 10 


ENDFBCEIP 


15 


ALLOC1 10 


GETCAED 


16 


BEGIN7 10 


INSEST 


16 


CKOPER 10 


JOINT 


15 


CONT 11 


JOINT1 


15 


CONTALLC 11 


MAINDIF 


17 


IPRVRL 10 


NXTINTRY 


16 


IPCIL 10 


NTTOCMP 


16 


NEWVOL 10 


PRINTNAM 


17 


ONEOP 10 


PROCNEW 


16 


RESPL 10 


STOWNXT 


17 


RESRL 10 


STOWPROC 


17 


RESSL 10 






SYSLABEL 11 
UPDATE 10 


CO R G Z 7 F : 
ALLOC 


18 


UPONE 10 


ALLOC1 


18 


UPPTR 10 


BEGIN7F 


18 




CKOPER 


18 


CORGZ 3F: 
BEGIN3F 13 


CONTALLC 
COPYIPL 


19 

19 


CHKDUPNM 13 


IPCIL 


18 


CHKTOD 14 


LPRVRL 


18 


COPY 13 


ONEUP 


18 


COPYDIR 13 


RESPL 


18 


COPYPL 13 


RESRL 


18 


COPYRL 13 


RESSL 


18 


COPYSL 13 


THEN 19 


COPYXALL 14 


UPDATE 


18 


COPYXAL1 14 


UPONE 


18 


COPYXNEW 14 


UPPTR 


18 


COPY1 13 






ENDCOPY 14 


MAOtT: 




ENDCPYM 14 


AALLOC 


21 


ENDCPYM1 14 


ACATAL 


21 


ENDNMCMP 13 


ACONDL 


22 


FNDCPY 13 


ACONDS 


22 


IPLMERGE 13 


ADELREN 


21 


JOINT 13 


AUPDATE 


22 


JOINT1 13 


BEGINN 


20 


NEXTCARD 14 


BEGINN1 


20 
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CSCONT 


20 


MAINTR2F: 


CHKOP3 44 


CSSTART 


20 


CATALR 31 


CTLCRD 44 


DKADUP 


23 


COM CAT 31 


ENDPROC 46 


DSCONT 


23 


LEAVE 31 


GTBK 46 


DSSTART 


23 


RCESD 31 


PROCADD 45 


DUNEW 


23 


RCRLD 31 


PROCDEL 45 


DOOLD 


23 


RCTXT 31 


PROCEND 45 


DUSTART 


23 




PROCREP 45 


ENDJOB 


20 


MAINTS2: 


RDDISK 44 


EOF 20 




LCDPR1 32 


READRTN 44 


FETCHP2 


21 


READCD 32 


RETURN2 46 


PETCHR2 


21 




RTMAINT 46 


PETCHS2 


21 


MAINTS2P: 


SETPTR 44 


ILLGOPA1 


22 


LCDPR1 33 


STARTUP 44 


INSTART 


20 


READSD 33 




IOSTART 


23 




$LIBSTAT: 


LDMNTPH1 


23 


MAINTP2: 


CKDRUN 47 


MAINTRTN 


23 


CATALP 34 


FBARUN 47 


MNTLP 


22 




IJBLBI1 47 


MNTRETN 


21 


MAINTP2F: 




NWREAD 


20 


CATALP 35 


$MAINDIR: 


NXTCONDS 


22 




BLOWUP 52 


WTDATEND 


23 


MAINTDR: 


CATALOG 54 


WTPMENT 


23 


CLIB 36 


CHKEQL 53 






DRSTART 38 


CLOSE 56 


MAINTCL: 




MAINRTN 37 


DELET 55 


CLREQ 


24 


PLL 36 


DOIO 57 


MAINLINE 


24 


RENAMRTN 37 


EXTR 55 


PLREQ 


24 


RLL 36 


FINI 49 


RLRREQ 


24 


SLL 36 


FINISH 54 


SLREQ 


24 




GENMSG 54 






MAINTDRF: 


GETENTRY 56 


MAINTCN: 




CLIB 38 


GETINP 56 


CICONRTN 


25 


DRSTARTF 38 


INITIALZ 49 


COMPDIA 


25 


MAINRTN 39 


INITMAIN 50 


EOJRTN 


25 


PLL 38 


INITSLDL 50 


IOEXEC 


25 


RENAMRTN 39 


INITSYSL 50 


MAINCIL 


25 


RLL 38 


KEEPDIST 57 


PLCONRTN 


25 


SLL 38 


LCCALL 51 


RLCONRTN 


25 




LOAD 54 


SSCONRTN 


25 


MAINTA: 


LOOKUP 55 


TYPCONCK 


25 


DIRUP 40 


MAINT 52 






GOON1 40 


MERGESDL 51 


MAINTCNF 


* 


MAINTA 40 


MSG 55 


CICONRTN 


26 


MOVE 40 


MSG91I 57 


CILINIT 


26 


TKFMT 40 


OPTLINK 51 


DESREAD 


28 


WRITE2 40 


PROCESS 53 


EOJRTN 


29 




PUTENTRY 56 


INITST 


26 


MAINTAF: 


PUTOUTP 56 


LIBCONDS 


29 


ALLERR 41 


RASCONV1 57 


LOADINIT 


29 


BLDREALT 41 


RASCONV2 57 


MAINCIL 


29 


BLDTABL 41 


RASEQL 53 


NEXTLIB 


29 


DOPASS1 42 


REALLOC 51 


PLCONRTN 


2 7 


DOPASS2 42 


RENM 52 


PREPARE 


28 


DSPLN 42 


RUN 53 


RLCONRTN 


27 


ENVERR 41 


SCANSDL 54 


RLSLPL 


28 


INITLISE 41 


SDLSVA 50 


SSCONRTN 


27 


INTL1 41 


SORT 56 


SYSCIL 


26 


MAINTAF 41 


SORTSDL 51 


TYPCONCK 


26 


PROCRDO 41 


SPACETST 53 






REALLOC 42 


SVAMSG 54 


MAINTR2: 




SYNERR 41 


UPDAT 54 


CATALR 


30 


TYPEL 41 


UDDSLD 57 


COMCAT 


30 


UPDTE1 42 




LEAVE 


30 


UPSTAT 42 


SMAINDIF: 


RCESD 


30 




CATALOG 64 


RCRLD 


30 


MAINTUP/F: 


CHKEAL 64 


RCTXT 


30 


CHKOP2 44 


DELET 66 
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DELBTALL 


61 


RDCARD 


77 


BKNDOU 


85 


EXTR 66 


START 


77 


CALLCS 


84 


FINISH 


64 


TRAHSLT 


77 


CSERR1 


84 


GENMSG 


64 


TRANTST 


77 


CSERR2 


84 


GETENTRY 


67 


»RITE 


77 


CSERR3 


85 


INITIALZ 


59 






EXPCD1 


85 


INITFBA 


59 


CSERVC, 


CSERVF: 


FNDBK 85 


INITLIBD 


59 


AFTERBOF 78 


GETBK1 


84 


INITMAIN 


59 


EXECUTE (F) 78 


NFERR 85 


INITSLDL 


59 


IADDR(F) 


i 78 


OPSCAN 


84 


INITSYSL 


59 


NEXTLH 


78 


PRTMSG 


84 


INTERROR 


69 


SEQREAD 


78 


RDRDR 84 


LCCALL 


61 


SERVICE (F) 78 


READMEMB 


85 


LOAD 6 5 






START 84 


LOOKUP 


67 


RSERV: 








MAINT 62 


ENDRT» 


79 


$$BSYSWR: 




MERGESDL 


60 


ERILOP 


79 


DOCKDDEV 


86 


MSG 66 




EXTRCT 


79 


DOFBADEV 


86 


OPTLINK 


61 


IGNORE 


79 


SYSWR 86 


PROCESS 


64 


ILOPRD 


79 


TESTTYPE 


86 


PUTENTRY 


68 


NOLIB 


79 






RASCONV 


69 


RDCD 79 


$$BOPNLB: 




RDDIRREC 


68 


SOME 79 


PRIVLIB 


87 


RDLIBDES 


68 


START 


79 


PRIVL01 


87 


REALLOC 


61 






PRIVLIB1 


87 


RENM 63 


RSERVC. 


RSERVF: 


SYSTLIB 


87 


RUN 63 




CNVORG 


80 


SYSTLIB1 


87 


SCANSDL 


65 


ESDPCH 


80 






SCLVLDR 


65 


ESDPRT 


80 


DTFSL: 




DSLSVA 


60 


PRTHDR 


80 


DIRSCAN 


88 


SORT 62 


! 


RDLIBC(F) 81 


DTFSLCHK 


88 


SORTSDL 


60 


RDRD1C(F) 81 


DTFSLGET 


90 


SPACETST 


63 


RDSEQU 


81 


DTFSLFND 


90 


SVAMSG 


65 


REPPRT 


80 


DTF3LFN1 


90 


UPDAT 64 


RLABAS(F) 81 


DTFSLPNT 


90 


WRDIRREC 


69 


RLDPCH 


80 


DTFSNTE 


90 


WRLIBDES 


68 


RLDPRT 


80 


FNDBK 88 






SYMPRT 


80 


FNDL 88 


I 


DSERV: 




TXTPCH 


80 


FNDLPR 


88 


D1CPLB 


71 


TXTPRT 


80 


FNDLSL 


88 


D1CPRLB 


71 


UPDTC 


81 


GFTL 8S 


) 


D1CPSLB 


71 






GOPEN 88 


D1CRES 


71 


SSERV: 




NOTEL 89 


D1CSRLB 


71 


ALOERR 


83 


PTL1 85 


> 


D1CSSLB 


71 


BKNDOU 


83 


RDBLK 89 


READDIR 


71 


BLNENT 


82 










CALLCS 


82 


$IJBLBSL: 




DSERVF: 




CPRPCH 


83 


BOOKFND 


91 


D1FPLB 


71 


CPRSC1 


83 


DECOMPR 


92 


D1FPRLB 


71 


CSERRO 


82 


DIRSCAN 


91 


D1FPSLB 


71 


CSERR1 


82 


DOFINDLB 


91 


D1FRES 


71 


CSERR2 


82 


DOSFQNTL 


91 


D1FSRLB 


71 


CSERR3 


83 


ENDFIELD 


92 


D1FSSLB 


71 


EXPOUT 


83 


FINDRQST 


91 


READDIRF 


71 


EXPTIN 


82 


GETRQST 


92 






FBAINIT 


82 


IJBLBSLO 


91 


DSERVt: 




FNDBK 


83 


INITPRVO 


93 


GETPASS 


73 


GETALL 


83 


INITPRV3 


93 


L0ADF2 


73 


NBLENT 


82 


INITSYSL 


93 


LOADSTAT 


73 


NFERR 


83 


INITSYS01 


I 93 


READCARD 


73 


NOFND 


83 


NOTERQST 


92 






PRTCCD 


82 


OPENLIBS 


93 


CSERV: 




SLASHO 


82 


PNTRQST 


93 


CMPRBL 


77 


START 


82 


READRQST 


93 


ENDRTN 


77 






SELSQNTL 


91 


BRRMSGS 


77 


PSERV: 




SINGLBOK 


91 


WHBT» 


77 


ALOERR 


85 
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LABEL LIST FOR CHARTS AA-RG 



Label 


Phase 


Location 


ADDMOD 


MAINTUP 


NPB2 


ADDONE 


MAINTUP 


NXB2 


ADDREG 


MAINTUP 


NEF3 


ADDRUPD 


MAINTCN 


FMC1 


ADDRDPDD 


MAINTCN 


FMB1 


ADDRUPDL 


MAINTCN 


FMB2 


ADDSTMT 


MAINTUP 


NGA4 


ADREX 


MAINTCN 


FLB4 


ADRINS 


MAINTCN 


FLB5 


ADRUPDLP 


MAINTCN 


FGF2 


ALL 


MAINTA 


MNC5 


ALLERR 


MAINTA 


MNB5 


ANYBKNME 


MAINTUP 


NAF3 


ANYBKNME 


MAINTUPF 


PCD3 


ARND1 


MAINTCN 


FLE1 


ASTCHK 


MAINTCN 


FFC5 


ASTCHK1 


MAINTCN 


FFD5 


BINCVRT 


MAINTUP 


NED4 


BKNTFND 


MAINTUP 


NFJ4 


BKNTFND 


MAINTUP 


NSC2 


BLDTB 


MAINTA 


MEA3 


BLFLG 


MAINTUP 


NQJ2 


BLKDATA 


MAINTUPF 


PGC2 


BLKEX 


MAINTCN 


FLB3 


BLNFLG 


MAINTUP 


NQF5 


BLNKCHR 


MAINTUP 


NTF1 


BLNKCHR 


MAINTUPF 


PFF1 


BLNKOUT 


MAINTUP 


NNE2 


BLNKSCN 


MAINTUP 


NFD4 


BOOK 


MAINTUP 


NZB5 


BRAN2 


MAINTUP 


NRA1 


BRBACK 


MAINTUP 


NSG2 


BRCOMP 


MAINTUP 


NGA5 


BRCOMP2 


MAINTUP 


NKA4 


BRKCHN 


MAINTCN 


FHC4 


BRKCHNRB 


MAINTCN 


FHA5 


BRLINK 


MAINTUP 


NLA3 


BRNCT 


MAINTUP 


NDA4 


BRTOGET 


MAINTUP 


NGD2 


BUILDSTW 


MAINTA 


MMA3 


BUMPCCW 


MAINTCN 


FKD4 


BUMPENT 


MAINTCN 


FFG4 


CANCEL 


MAINTCL 


EYH2 


CCWBUMP 


MAINTCN 


FHJ2 


CCWCHK 


MAINTCN 


FGB3 


CDPRT 


MAINTUP 


NKH2 


CDSEQER 


MAINTUP 


NGE5 


CHARAC 


MAINTUP 


NWD5 


CHARST 


MAINTUP 


NEF5 


CHBKT 


MAINTUP 


NZA3 


CHKADD1 


MAINTUP 


NYA2 


CHKADD2 


MAINTUP 


NYD3 


CHKCHAR 


MAINTUP 


NUE3 


CHKCIL 


DSERV1 


RAD3 


CHKDEC 


MAINTUP 


NCA1 


CHKDIR 


MAINTUP 


NAB3 


CHKINCR 


MAINTUP 


NRH4 


CHKLTH 


MAINTUP 


NDC2 



Label 

CHKNUM 

CHKOP2 

CHKOP3 

CBKPER 

CHKPL 

CHKRL 

CHKRLB 

ChKSDL 

CHKSEQ 

CHKSL 

ChKSLB 

ChKSSL 

CHKTEMP 

CHKV 

CHKVMD 

CHLVERR 

CICONRTN 

CIKSMOVE 

CKMULTI 

CLAREA 

CLDWORD 

CLREQ 

CLRMOD 

CLRSWCH 

CLSWT 

CMMACHK 

CMPBLNK 

CMPCHLV 

CMPREC 

CNDSETUP 

CNTALLO 

CNVRTK 

COMFND 

COMLOC 

COMP 

COMPARE 

COMP A 1 

COMP A 2 

COMPBKT 

COMPLN 

COMPLN 

COMPRES 

COMPSEQ 

CONDONS 

CONVRT 

COPENTRY 

COPLAB 

COPLABH 

COPY LB 

COPYLC 

COPY 020 

CPBLNK 

CPBOUND 

CRDMVR 

CSWTCH 

CTERCL 

CTERCL 

CTLCRD 

CVTBIN 

CYL 



Phase 


Location 


MAINTUP 


NEF1 


MAINTUP 


NDA2 


MAINTUP 


NEA1 


MAINTUP 


NDB2 


DSERV1 


RAJ2 


DSERV1 


RAF2 


DSERV1 


RAE2 


DSERY1 


RAK2 


MAINTUP 


NRB4 


DSERV1 


RAH2 


DSERV1 


RAG2 


MAINTUP 


NAA3 


MAINTUP 


NNC3 


MAINTUPF 


PDH1 


MAINTUP 


NKA3 


MAINTUP 


NMJ1 


MAINTCN 


FDG1 


MAINTCN 


FEC2 


MAINTCN 


FDB3 


MAINTUP 


NEJ4 


MAINTUP 


NEJ5 


MAINTCL 


EXG2 


MAINTUP 


NNK2 


MAINTUP 


NttH5 


MAINTA 


MAG3 


MAINTUP 


NBA4 


MAINTUP 


NQD5 


MAINTUP 


NEC1 


MAINTUP 


NKB2 


MAINTCN 


FGG2 


MAINTA 


MNH1 


MAINTA 


MBE1 


MAINTUP 


NWH3 


MAINTUP 


NMF1 


MAINTCL 


EXE1 


MAINTUPF 


PFE5 


MAINTA 


MPE1 


MAINTA 


MPF2 


MAINTUP 


NZD2 


MAINTUP 


NAJ3 


MAINTUPF 


PCH3 


MAINTUP 


NQB2 


MAINTUP 


NKA1 


MAINTCN 


FFE4 


MAINTA 


MBB4 


COPYSERV 


AAB2 


MAINTA 


MPC5 


MAINTA 


MPH3 


MAINTA 


MQB1 


MAINTA 


MQE2 


COPYSERV 


AAC2 


MAINTUP 


NQG2 


MAINTUP 


N WC3 


MAINTUP 


NJG4 


MAINTUP 


NCG2 


MAINTUP 


NAE3 


MAINTUPF 


PCC3 


MAINTUP 


NFA5 


MAINTUP 


NCH2 


MAINTA 


MAA5 
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Label 



Phase 



Location 



DECCHK 


MAINTUP 


NYB2 


DECFND 


MAINTUP 


NWC5 


DEC REG 


MAINTUP 


NDC4 


DECR1 


MAINTUP 


NBA1 


DECR2 


MAINTUP 


NDD2 


DEFAULT 


MAINTUP 


NRC5 


DELSTMT 


MAINTUP 


NLK2 


DESCRtiPD 


MAINTUPF 


PEE1 


DETOPD 


MAINTUP 


NBG3 


DIR 


MAINTA 


MNC3 


DIRENTBP 


MAINTCN 


FMB4 


DIRERR 


MAINTA 


MNB3 


DIRINBMP 


MAINTCN 


FGD1 


DIROUTBP 


MAINTCN 


FGD5 


DIRRDRTN 


MAINTCN 


FKB1 


DIRSCAN 


MAINTUPF 


PFB5 


DIRUP 


MAINTA 


MJA4 


DIRUP1 


MAINTA 


MJB3 


DIRUP2 


MAINTA 


MJE3 


DIRUP3 


MAINTA 


MJF3 


DIRUP4 


MAINTA 


MJJ3 


DIRUP5 


MAINTA 


MJD5 


DIRUP7 


MAINTA 


MJG5 


DIRUP8 


MAINTA 


MJE1 


DIRUP9 


MAINTA 


MJK3 


DIRD10 


MAINTA 


MJH1 


DIRWTRTN 


MAINTCN 


FKB2 


DISASTER 


MAINTCN 


FLH2 


DMYENTRY 


MAINTUPF 


PEA1 


DNTCK 


MAINTA 


MGA5 


DOIO 


MAINTCN 


FKF2 


DOIO 


MAINTUPF 


PEB2 


DOITNW 


MAINTA 


MHB1 


DRTSCN1 


MAINTUP 


NTB3 


DRTSCN1 


MAINTUPF 


PFB3 


DRTSCN2 


MAINTUP 


NTB5 


DRTSCN2 


MAINTUPF 


PFB4 


DSKERR 


MAINTA 


MNB1 


DSPLN 


MAINTA 


MFB3 


DSPL1 


MAINTA 


MFD3 


DSPL2 


MAINTA 


MFF2 


DSPL3 


MAINTA 


MFJ3 


DSPL4 


MAINTA 


MFF4 


D1FPSLB 


DSERVt 


RAG4 


D1FRLB 


DSERV1 


RAE4 


D1FSRLB 


DSERV1 


RAF3 


D1PLB 


DSERV1 


RAJ3 


D1SSLB 


DSERV1 


RAH3 


D2FVM 


DSERV2F 


RCJ2 


D3PL& 


DSERV3F 


REF2 


D3PRLB 


DSERV3F 


REC2 


D3PSLB 


DSERV3F 


REE2 


D3RDDES 


DSERV3F 


REH2 


D3RDDIR 


DSERV3 


RDB2 


D3RLB 


DSERV3F 


REB2 


D3SLB 


DSERV3F 


RED2 


D4PLB 


DSERV3F 


REF5 


D4PRLB 


DSERV3F 


REC5 


D4PSLB 


DSERV3F 


REE5 


D4RLB 


DSERV3F 


REB5 


D4SLB 


DSERV3F 


RED5 


ELIGIBF 


DSERV2F 


RCE3 


ELIGIBL 


DSERV2 


RBE3 


ENDCHK 


DSERV2 


RBH4 


ENDCHKF 


DSERV2F 


RCH4 



Label 

ENDJOB 

ENDPROC 

ENDPTR 

ENDSEQ 

ENTLINE 

ENTLINEC 

ENTLINEF 

ENVERRO 

EOJRTN 

ERCONT 

ERCRD 

BRINOP 

ERRDSP 

ERRSWCH 

ERRTN 

ERSRCE 

EXDIRIO 

EXEC 

EXEC 10 

EXITOK 

FBACIL 

FBAPROC 

FBAREL 

FBASSL 

FBAWRITE 

FDCHAR 

FETCH 1 A 

FIND 

FLSSTM 

FNDBLNK 

FNDDEC 

FNDEND 

FNDEND1 

FNDIGIT 

FN DM 

FNDPER 

FNDPER 

FNDSEQ 

FRSTSEQ 

FSTDIRRD 

FSTENT 

FTCH7A 

FULBLK 

GET 

GETAL 

GETASTRX 

GETCRD 

GETCRD 

GETPASS 

GMESS7 

G00N1 

GOTIT 

G0TIT2 

GRES 

GRTEQU 

GTBK 

GTCRD 

HEADS 
HEADSF 

INCORSEQ 

INDSQ1 

INITIAL 



Phase 


Location 


MAINTA 


MMJ4 


MAINTUP 


NMA3 


MAINTUP 


NRH1 


MAINTUP 


NSF2 


DSERV6 


RGE2 


DSERV6 


RGF2 


DSERY6 


RGF3 


MAINTA 


MAJ5 


MAINTCN 


FJB1 


MAINTCL 


EYH3 


MAINTUP 


NDE1 


MAINTCL 


EYG1 


MAINTCL 


FAB2 


MAINTUP 


NZG2 


MAINTUP 


NVB5 


MAINTUP 


NWJ5 


MAINTCN 


FKD2 


MAINTUP 


NDA3 


MAINTCN 


FKE2 


MAINTCN 


FKH3 


MAINTCL 


EXH4 


MAINTCL 


EYH5 


MAINTCL 


EYA4 


MAINTCL 


EXD5 


MAINTCL 


FAG1 


MAINTUP 


NVE1 


DSERV4 


RFF2 


MAINTUP 


NFF3 


MAINTUP 


NVB1 


MAINTUP 


NJK4 


MAINTUP 


NEG1 


MAINTUP 


NAA5 


MAINTUP 


NAB5 


MAINTUP 


NWB1 


MAINTUP 


NFA1 


MAINTUP 


NAH3 


MAINTUPF 


PCF3 


MAINTUP 


NJH4 


MAINTUP 


NYC2 


MAINTCN 


FFA5 


MAINTUP 


NMD2 


DSERV4 


RFD5 


MAINTUP 


NRA3 


MAINTUP 


NSB1 


MAINTA 


MAA3 


MAINTUPF 


PDC4 


MAINTUP 


NTB1 


MAINTUPF 


PFB1 


DSERV1 


RAB5 


MAINTUP 


NSC3 


MAINTA 


MCAT 


MAINTCN 


FKG5 


MAINTCN 


FKE5 


COPYSERV 


AAD3 


MAINTUP 


NZJ4 


MAINTOP 


NMC4 


MAINTUP 


NGB5 


DSERV2 


RBB3 


DSERV2F 


RCB3 


MAINTUP 


NRK4 


MAINTUP 


NBE5 


MAINTA 


MPB5 
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Label 

IHITIALH 

INSCHAR 

INTL1 

INTL2 

INTL3 

IOEXEC 

IPLDSTRY 

LABEL4 

LADRESS 

LASTWRT 

LBRBLKS 

LDADRES 

LDEOF 

LDEOF 

LDINST 

LDLNK 

LDPTR 

LDREG 

LEAVE 

LENGTH 

LEN3 

LHIGH 

LIB 

LIBERR 

LINK 

LINKCH 

LMAINDIR 

LOADES 

LOADF2 

LOADINIT 

LOADR 

LOADREG 

LOADSTAT 

LOCBLK 

LOGDONE 

LOGGER 

LOGUNIT 

LONECYL 

LSTDEL 

LSTWRT 

MAINCIL 

MAINLINE 

MAINTA 

MLLSTENT 

MNLINST 

MNLNLP 

MOROP 

MOV 

MOVE 

MOVENTRY 

MOVE1 

MOVE 10 

MOVE 11 

MOVE12 

MOVE2 

M0VE3 

MOVE 4 

MOVE5 

MOVE 6 

MOVE? 

MOVE8 

MOVES 

MOVING 

MOfLIB 



Phase 


Location 


MAINTA 


MPG3 


MAINTOP 


NNG2 


MAINTA 


MEE3 


MAINTA 


MEF3 


MAINTA 


MEG3 


MAINTCN 


FHB1 


MAINTCN 


FLE2 


MAINTA 


MMG4 


MAINTUP 


NQG3 


MAINTUPP 


PGC5 


MAINTUPF 


PC A 3 


MAINTUP 


NQD4 


MAINTUP 


NAC1 


MAINTUPF 


PCB1 


MAINTUP 


NFD3 


MAINTUP 


NJK3 


MAINTUP 


NFB1 


MAINTUP 


NGH2 


MAINTA 


MMD5 


MAINTUP 


NMG2 


MAINTUP 


NXF2 


MAINTA 


MPF3 


MAINTA 


MNC4 


MAINTA 


MNB4 


MAINTUP 


NJA4 


MAINTCN 


FHA2 


MAINTCN 


FDF4 


MAINTUP 


NPG1 


DSERV1 


RAJ5 


MAINTCN 


FJB4 


MAINTUP 


NGK3 


MAINTUP 


NME5 


DSERV1 


RAH1 


MAINTUP 


NWB3 


MAINTCN 


FLC1 


MAINTCN 


FEC5 


MAINTUPF 


PCD1 


MAINTA 


MPA5 


MAINTUP 


NLC4 


MAINTCN 


FHF4 


MAINTCN 


FFJ1 


MAINTCL 


FAA1 


MAINTA 


MAB1 


MAINTCN 


FHA3 


MAINTCN 


FGB1 


MAINTCN 


FGG1 


MAINTCL 


FAH3 


MAINTA 


MAB4 


MAINTA 


MKA1 


MAINTUPF 


PDA5 


MAINTA 


MKB1 


MAINTA 


MKD4 


MAINTA 


MKB5 


MAINTA 


MKK5 


MAINTA 


MKD1 


MAINTA 


MKE1 


MAINTA 


MKF1 


MAINTA 


MKF3 


MAINTA 


MKG3 


MAINTA 


MKG2 


MAINTA 


MKC2 


MAINTA 


MKA4 


MAINTUP 


NAE1 


MAINTA 


MPB3 



Label 


Phase 


Location 


MOVSEQ 


MAINTOP 


NKD2 


MOV1 


MAINTA 


MAG5 


MOV 2 


MAINTA 


MAA4 


MSGLD 


MAINTUP 


NDD1 


MVALDC 


MAINTA 


MBF4 


MVSQ 


MAINTUP 


NKG2 


MVSQNO 


MAINTUP 


NCE1 


NEWCARD 


MAINTCL 


FAB4 


NEWENTRX 


MAINTUPF 


PDA3 


NEWSDWRT 


MAINTCN 


FHF5 


NEXT A 


MAINTA 


MCH5 


NEXT A I 


MAINTA 


MDD1 


NEXTAL 


MAINTA 


MCJ5 


NEXTENT 


DSERY2 


RBH3 


NEXT EN TF 


DSERV2F 


RCH3 


NEXTENTR 


MAINTCN 


FFC2 


NEXT LIB 


MAINTCN 


FBJ5 


NOBOOK 


MAINTUP 


NTB4 


NOBOOK 


MAINTUPF 


PFF4 


NOCID 


MAINTA 


MLC4 


NOLIBE 


MAINTUP 


NAA4 


NOPOST 


MAINTCN 


FHH1 


NORECMSG 


MAINTCN 


FKB4 


NOTFND 


MAINTUP 


NTE4 


NOTFND 


MAINTUPF 


PFJ2 


NOTH1 


MAINTCL 


FAG3 


NOUPDTE 


MAINTUPF 


PDD1 


NRECMSG 


MAINTCN 


FKH5 


NRFERR 


MAINTCN 


FKK2 


NWCARD 


MAINTUP 


NUB3 


NWENTR 


MAINTUP 


NND4 


NXTCMA 


MAINTUP 


NBJ2 


NXTL 


MAINTA 


MBD5 


OFFSWCH 


MAINTUP 


NZU2 


OFLOCHK 


MAINTCN 


FGC3 


ONETWO 


MAINTUP 


NXF3 


OR F 


DSERV1 


RAC3 


ORSWCH 


MAINTUP 


NMG3 


OUTSEQ 


MAINTUP 


NJG1 


PARENFD 


MAINTUP 


NTE1 


PARENFD 


MAINTUPF 


PFE1 


PCLIB 


MAINTA 


MBK5 


PENULT 


MAINTCN 


PKH1 


PERFND 


MAINTUP 


NED1 


PLCONRTN 


MAINTCN 


FEA1 


PLOK 


MAINTCL 


EYF4 


PLPERR 


MAINTCL 


EYG2 


PLREQ 


MAINTCL 


EYF1 


PLUGCH 


MAINTCN 


FHD2 


PRCLIB 


COPYSERV 


AAH3 


PRINT 


MAINTUP 


NFE4 


PRNTDEL 


MAINTUP 


NLB1 


PRNTRTN 


MAINTUP 


NVB4 


PROCADD 


MAINTUP 


NGA1 


PROCDEL 


MAINTUP 


NLA2 


PROCEND 


MAINTUP 


NMA1 


PROCESS 


DSERV2 


RBD2 


PROCESS 


MAINTUP 


NJE4 


PROCESSF 


DSERV2F 


RCD2 


PROCRDO 


MAINTA 


MAB.1 


PROCREP 


MAINTUP 


NJA2 


PRTSTAT 


MAINTUP 


NGF4 


PRVSET 


MAINTCN 


FDB4 
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Label 

PTRINIT 

RCDSEQ 

RDBK 

RDDISK 

RDSYSD 

RDSYS1 

RDSYS2 

RDSYS3 

RDSYS4 

RDSYS5 

RDSYS6 

RDSYS7 

READCARD 

RBADCHK 

READCHKF 

READCKD 

READDIR 

READKEY 

READRTN 

RECCHK 

RECSEQ 

RECSEQ1 

REGINCR 

RE6LD 

RE6SAVE 

REL/RELP 

RELIB 

REPBKT 

RESENTCT 

RESETCD 

RESETCDP 

RESETTD 

RESETTDF 

RESTREG 

RESTTRK 

RETURN 2 

RGSTLD 

RGTPREN 

RGTPREN 

RLCONRTN 

RLRREQ 

RLSWT 

ROOTCNCL 

RPSRTN 

RSDIRRP 

RSPETGH 

RSFETCH5 

RSSORT 

RSSORTF 

RTMAINT 

RTMAINT 

RTMNT 

RTNLNK 

RTRN 

SAVEDIR 

SCNCARD 

SCNDMSG 

SDUPDATE 

SDUPDATE 

SEQCRD 

S^QERR 

SEQORD 

SEQREAD 

SEQREC 



Phase 


Location 


MAINTCN 


FGH3 


MAINTUP 


NLE2 


MAINTUP 


NMA4 


MAINTUP 


NPA3 


MAINTA 


MGP1 


MAINTA 


MCD4 


MAINTA 


MCA5 


MAINTA ' 


MCB5 


MAINTA 


MCK4 


MAINTA 


MCG5 


MAINTA 


MDA3 


MAINTA 


MDB4 


DSERV1 


RAE5 


DSERV2 


RBG2 


DSERV2F 


RCH2 


MAINTGL 


FAD2 


MAI.NTCN 


FPA2 


DSERV2 


RBH2 


MAINTUP 


NFH3 


MAINTCN 


FGA3 


MAINTUP 


NGE2 


MAINTUP 


NGF2 


MAINTUP 


NEA4 


MAINTUP 


NJF3 


MAINTUP 


NWD3 


DSERV4 


RPC2 


GOPYSERV 


AAE3 


MAINTUP 


NZE2 


MAINTCN 


FMC5 


DSERV2 


RBH5 


DSERV2P 


RCH5 


DSERV2 


RBJ5 


DSERV2F 


RCJ5 


MAINTCN 


FMC2 


MAINTCN 


FMD3 


MAINTUP 


NPD3 


MAINTUP 


NLP3 


MAINTUP 


NTG1 


MAINTUPP 


PFG1 


MAINTCN 


FEA3 


MAINTCL 


EYA1 


MAINTA 


MAH3 


MAINTA 


MND2 


MAINTCN 


FJH1 


DSERV3F 


RE J 2 


DSERV3P 


REE4 


DSERV3 


RDD2 


DSERV3 


RDC2 


DSERV3F 


REK2 


MAINTUP 


NNA1 


MAINTUPP 


PDA1 


MAINTUP 


NPA4 


MAINTUP 


NVB3 


MAINTUPP 


PGJ2 


MAINTUP 


NUC1 


MAINTUP 


NQF2 


MAINTCN 


FLB1 


MAINTCN 


FHB3 


MAINTCN 


FHC3 


MAINTUP 


NKC2 


MAINTUP 


NBB5 


MAINTUP 


NZB2 


DSERV2 


RBK4 


MAINTUP 


NJE3 



Label 

SEQSWCH 

SEQZROO 

SEQZRO 

SETA DDR 

SETCCBS 

SETPTR 

SETSEQ 

SETSWCH 

SETS W 2 

SKPLINE 

SKSETUP 

SLIB 

SORA/SORP 

SQNOMV 

SRCLIB 

SSCONRTN 

START 

STARTUP 

STATUSB 

STRTM 

STSEQ 

STSW2 

SUBIT 

SUBIT2 

SYNERR4 

SYSCIL 

SISDIRUP 

SYSDIRWT 

TCDIRRD 

TCINIT 

TCLINE 

1CLINEP 

TEST 

TKCOMP 

TKFMT 

TKFMT1 

TKPMT10 

TKPMT11 

TKPMT12 

TKPMT13 

TKPMT2 

TKFMT3 

TKPMT3A 

TKFMT4 

TKPMT6 

TKFMT7 

TKFMT9 

TKRETN 

TOBKT 

TOPS 

TRANSL 

TRCKS 

TRNSLTE 

TSTB 

TSTSWCH 

TSTSW1 

TYPCONGK 

TYPEL 

UPADDR 

UPDATE 

UPDSEQ 

UPDTENT 

UPD1 

OPD2 



Phase 


Location 


MAINTUP 


NBP5 


MAINTUP 


NHD1 


MAINTUP 


NHC1 


MAINTUPP 


PCB3 


MAINTCN 


FPA1 


MAINTUP 


NBP2 


MAINTUP 


NDJ4 


MAINTUP 


NMH3 


MAINTUP 


NDJ5 


MAINTUP 


NKD4 


MAINTCN 


PHP1 


MAINTA 


MBG5 


DSERVH 


RPC3 


MAINTUP 


NXP4 


COPYSERV 


AAG2 


MAINTCN 


PEA4 


MAINTCL 


EXC1 


MAINTUP 


NAB1 


MAINTUPF 


PDA4 


MAINTA 


MGH5 


MAINTUP 


NSF5 


MAINTUP 


NBE2 


MAINTA 


MPC2 


MAINTA 


MPH2 


MAINTA 


MNB2 


MAINTCN 


PDB5 


MAINTCN 


PHG3 


MAINTCN 


FKC2 


DSERV2F 


RCP2 


DSERV2 


RBC2 


DSERY2 


JRBC3 


DSERV2F 


RCC3 


MAINTUP 


NSB4 


MAINTA 


MPB1 


MAINTA 


MLB1 


MAINTA 


MLd2 


MAINTA 


MLB2 


MAINTA 


MLD2 


MAINTA 


MLE2 


MAINTA 


MLG2 


MAINTA 


MMB1 


MAINTA 


MMK1 


MAINTA 


MMP2 


MAINTA 


MMK2 


MAINTA 


MMJ3 


MAINTA 


MMD1 


MAINTA 


MLH1 


MAINTA 


MPJ2 


MAINTUP 


NXP1 


DSERV6 


RGC2 


MAINTUP 


NBJ4 


MAINTA 


MBB1 


MAINTUP 


NDP2 


MAINTA 


MBC2 


MAINTUP 


NXH2 


MAINTUP 


NPA1 


MAINTCN 


PDC1 


MAINTA 


MAG2 


MAINTUP 


NRE2 


MAINTA 


MBH3 


MAINTUP 


NSB5 


MAINTUP 


NNE3 


MAINTA 


MAC3 


MAINTA 


MAD5 
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Label 

UPSYSD 
UPSYSN 
UPSYS1 
UPSYS2 
0PSYS3 

VMBODTF 
VMROOT 

WRAPARD 

WRCHLVL 

WRGORD 

WRGSEQ 

WRGUSEQ 

WRTTEP 

WRITER 

WRITES 

WRITE1 

WR±TE2 

WRPARND 

WRSYSD 

WRTBLK 

WTBLOCK 

WTDIREC 

WTMSG 

XTNERR 

ZEROMOD 



Phase 


Location 


MAINTUP 


NPJ1 


MAINTA 


MFK4 


MAINTA 


MGB3 


MAINTA 


MGD4 


MAINTA 


MGD2 


DSERV2F 


RCF4 


DSERV2 


RBF4 


MAINTUP 


NPE2 


MAINTUP 


NEH3 


MAINTUP 


NZK4 


MAINTUP 


NWG5 


MAINTUP 


NRE4 


MAINTA 


MHA4 


MAINTA 


MHA3 


MAINTA 


MHF3 


MAINTA 


MHD2 


MAINTA 


MHA1 


MAINTUP 


NNJ2 


MAINTA 


MHF2 


MAINTUPF 


PGB4 


MAINTUP 


NUB1 


MAINTUPF 


PDE5 


MAINTUP 


NPJ3 


MAINTA 


MNE3 


MAINTUP 


NPF1 
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Phase 

$$BOPNLB 

SIJBLBSL 

$MAINDIF 

$MAINDIR 

COPYSERV 

CORGZ 

CORGZ3 

CORGZ3F 

CORGZ6 

CORGZ6F 

CORGZ7 

CORGZ7F 

CSERV 

CSERVC 

CSERVF 

DSERV 

DSERVC 

DSERVF 

DSERV1 

DSERV2 

DSERV2F 

DSERV3 

DSERV3F 

DSERV4 

DSERY5 

DSERV6 

MAINT 

MAINT 

MAINT 

MAINT 

MAINT 

MAINT 

MAINT 

MAINT 

MAINTA 

MAINTAF 

MAINTCL 

MAINTCN/F 

MAINTDR/F 

MAINTP2/F 

MAINTR2/F 

MAINTS2/F 

MAINTUP 

MAINTUPF 

PSERV 

RSERV 

RSERVC 

RSERVF 



Module 

$$BOPNLB 

IJBLBSL 

IJBLBI2 

IJBLBIO 

IJBSMERG 

IJB LB J 

IJBLBT 

IJBLBTF 

IJB LB W 

IJBLBWF 

IJB LB X 

IJBLBXF 

IJBLBP 

IJBLBP 

IJBLBP 

IJBSL1 

IJBSL1 

IJBSL1 

IJBSL1 

IJBSLt 

IJBSL1 

IJBSL1 

IJBSL1 

IJBSL1 

IJBSL1 

IJBSL1 

IJBLBA 

IJBLBC 

IJBMCS 

IJBMDS 

IJBMDU 

IJBMIN 

IJBMIO 

IJBMDP 

IJBLBL 

IJBLBLF 

IJBLBM 

IJBLBG/F 

IJBLBD/F 

IJBLBN/F 

IJBLBE/F 

IJBLBF/F 

IJBLBQ 

IJBLBQF 

IJBSL6 

IJBSL3 

IJBSL3 

IJBSL3 



Internal Macros: (only the first two are 
explicitly documented in this manual) 

DTFPL 

DTFSL 

FNDPL 

FNDSL 

GETSL 

IJBCDT 

IJBDISP 

IJBLBCDY 

IJBLBIOT 

IJBLBOWA 

IJBLBPDY 

IJBLBRDY 

IJBLBSDB 

IJBLBSDY 

IJBLBSTA 

IJBLBSTT 

IJBLBTAB 

NTSL 

READPL 

READSL 

REGISTERS 

RTNCALL 



Basic Macros: (not documented in this manual) 

IJBLBDES 

IVPCAPC 

IVPCAPS 



Link -books: 

P has e Mod ule 

**MAINT IJBSL2 

**SSERV IJBSL4 

**CORGZ IJBSL5 
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MESSAGES CROSS REFERENCE 



3A01 
3A02 
3A03 
3A04 

3C30 
3C31 

3C35 
3C66 
3C67 

3M00 
3M09 
3M10 

3M11 
3M12 

3H15 



3M16 
3M17 

3M18 

3M20 
31)121 



3M23 
3M24 
3M25 
3M26 
3M27 
3M28 
3M29 
3M30 
3M31 
3M32 
3M33 



COPYSERV 
COPYSERV 
COPYSERV 
COPYSERV 

CORGZ 

CORGZ 

CQRGZ3, CORGZ6(F) 

CORGZ, C0RGZ7(F) 

CORGZ, C0RGZ7 



PSERV, 

SSERV, 

DSERV, 

PSERV, 

MAINTR 

MAINTC 

DSERV, 

MAINTR 

MAINT, 

MAINTA 

CORGZ, 

MAINTD 

MAINTS 

PSERV 

DSERV, 

SSERV, 

MAINTD 

MAINTS 



WAIN 
PSER 
CORG 
RSER 
2(F) 

N(F) 

MAIN 
2F, M 

CORG 
F, MA 

MAIN 
RF, M 
2F, M 



TCN(F) 

V 

Z, MAINT, MAINTDR(F) 

V, CSERV, SSERV 



TA (F) , MAINTDR (F) , 

AINTS2F, MAINTP2F, 

Z 

INTCNF, MAINTUP(F) 

TAP, MAINT 

AINTR2F, MAINTP2F, 

AINTAF, MAINTCNF 



MAINTCL, MAINTA (F) t 
PSERV, MAINTR2(F) , 

R(F) , CSERV, MAINT, 

2(F) 



MAINTCN(F) 



MAINTP2(F), MAINTR2(F), MAINTS2(F) 

MAINTS2(F) 

MAINTP2(F) 

it 
MAINT, MAINTP2(F) 
MAINTP2(F) 

$MAINDIR, CORGZ3(F), CORGZ6 (F) , 
MAINTUP(F), PSERV, CSERV, RSERV, 
SSERV 



3M34 
3M35 
3M37 
3M38 
3M43 



3M44 
3M45 
3M51 
3M52 

3M53 
3M54 
3M55 
3M56 
3M61 
3M62 
3M63 
3M64 
3M65 
3M66 
3M68 
3M70 
3M75 
3M78 
3M80 
3M81 
3M90 
3M91 
3M92 

3U10 
3U11 
3U20 
3021 
3U30 
3U31 
3032 



MAINTCL 



MAINTS2 (F) 
C0RGZ3 (F) , 



MAINTP2(F) 



MAINRDR(F), KAINTUP {F) 



MAINTAF 



MAINTA 



MAINT 

DSERV 

MAINTCN(F) 

MAINTP2(F) 

DSERV, MAINTCL, MAINTCN (F) , 

SSERV, PSERV, MAINDIR(F), 

MAINTR2(F), MAINTS2 (F) , MAINTP2(F) 

C0RGZ3(P), MAINTUP(F) 

CORGZ, MAINTCN(F), MAI »TDR (F) 

DSERV 

SMAINTDIR 

MAINTR2(F) 

MAINTOP (F) 

C0RGZ6(F) 

SMAINDIR, 

MAINTR2(F) 

SMAINDIR 

C0RGZ7(F) , 

MAINTA 

C0RGZ7(F) , 

MAINTA 

CORGZ, C0RGZ7(F) 

C0RGZ7(F) 

MAINTA (F), MAINTCN(F) 

MAINTCN(F), MAINT, MAINTA 

MAINTCN (F) 

SLIBSTAT 

MAINTA (F), MAINTCN (F) 

MAINTCN 

SMAINDIR 

SMAINDIR/DIF 

SMAINDIR 

SMAINTOP (F) 
SMAINTOP (F) 
SMAINTOP (F) 
SMAINTOP (F) 
SMAINTOP (F) 
SMAINTOP (F) 
SMAINTOP (F) 
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INTERNAL LIBRARIAN ERROR AND RETURN CODES 



RETURN CODES WITH MESSAGE 3M17I: 



If a librarian program during execution discovers an invalid program 
status or invalid program data the message 3M17I INTERNAL LIBRARIAN 
ERROR XXXXX is issued and an Error Code is placed in register 15. 
Following is a list of these error codes: 



CORGZ : X»6 00 
C0RGZ3F: X«6 15 



C0RGZ6F: 


X i 6 30 


MAINTAF: 


XM10 


DSERV : 


X*901 


DSERV3 : 


X»9 06 


DSBRV3 : 


X»9 07 



DSERV 3 : X»9 08 



DSERV4 



X»909 



DSERV3F: X»902 



DSERV3F: X»904 



) XM01 
) 

SSERV ) X»102 

) 

DTFSL ) X B 103 

) 

ASSEMB*) X»104 

> x n 05 



GETVCE macro received non-zero return code for SYSRES. 

Contents of •FROM 1 library have been changed during 
processing so that a member formerly found is no 
longer there. 

End of •FROM 1 directory was not found. 

Invalid table status or data found. Reg 14 then contains 
the address where the error was detected. 

Neither on CKD nor on FBA a library is specified » 

The phase is called , but no related library on CKD (RL, 
SL, PL, or private RL or SL) is specified (Initialize). 

The phase is called, but no related library on CKD (RL, 
SL, PL, or private RL or SL) is specified (Sort) . 

The phase is called, but no related library on CKD, (RL, 
SL, PL, or private RL or SL) is specified (Fetch) . 

The phase is called, but no RL or SL or private RL or 
SL is specified. 

The phase is called, but no related library on FBA (RL,^ 
SL, PL, or private RL or SL) is specified (Initialize 
print) . 

The phase is called, but no related library on FBA (RL, 
SL, PL, or private RL or SL) is specified (Sort) . 

Nesting depth of NOTE exceeded (user error) 

NOTE, POINT or READ given, but no expansion for it (user) 

Too many POINT given (user error) 

Invalid request or library OPEN failure (user/system) 
GET, NOTE, READ, or POINT given without FIND (user) 



RETURN CODES FOR $MAINDIR/$MAINDIF 



At the end of execution, the phase inserts one of the following codes in 
register 15: 



X*00 6 successful completion 

f®04 § status report is to be displayed 

X 9 08 8 directory is full 

X 1 10* irrecoverable I/O error 
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INDEX 



$$BOPNLB 


transient 


chart 


130 


text 


38 


$$BSYSWR 


transient 


chart 


129 


text 


38 


SIJBLBSL 




charts 


134 


text 


42 


SLIBSTAT 




chart 


90 


text 


28 


$MAINDIF 




charts 


101 


text 


29 


SMAINDIR 




charts 


91 


text 


29 



allocation of library space 25 



book in source library 229 



CKD libraries 219 
compressed format for SSL 229 
control statements (see 
DOS/VS S ystem Control Statements 



manual) 






)ADD 


28 




)DEL 


28 




)END 


28 




)REP 


28 




ALLOC 


(CORGZ) 


19 




(MAINT) 


23, 25, 30 


CATALP 


24 




CATALR 


23 




CATALS 


24 




CONDL 


22 




CONDS 


23, 30 




COPYC 


19, 30 




CO PYX 


18 




DELETC 


24, 30 




DELETx 


24 




DSPCH 


32 




DSPLY 


32 




MERGE 


19 




NEW VOL 


19 




PUNCH 


3 2 




RENAMC 


24, 30 




RENAMx 


24 




UPDATE 


28 





conventions 

flow charts 137 

general charts 43 
COPYSERV program 

charts 44, 138 

text 13 
core image library 

CKD 219 

PBA 236, 238, 239 
CORGZ program 

charts 45 

text 15 
CSERV program 

charts 120 

text 36 



D 



data areas 202 

descriptor record, see directory CKD 

and PBA 
directory, CKD 

core image 219 

procedure 230 

relocatable 2 22 

source statement 228 
directory, PBA 

records 236 

space 231 
directory, system 217 
DSERV program 

charts 113, 195 

text 33 
DTPSL macro 

charts 131 

text 39 



E 



error codes 250 

error messages cross reference 249 

ESD record format '225 



PBA libraries 231 
flowchart symbols 137 
flowchart label list 243 



general charts conventions 43 



INITABLE 202 

I/O access to librarian files 11 



index 251 



I/O areas in $MAINDIR /$MAINDIF 31 



label information area 
label lists 240 
librarian programs 
COPYSERV 13 



CORGZ 


15 


CSERV 


36 


DSERV 


33 


MAIN? 


19 


PSERV 


37 


RSER? 


36 


SSERV 


37 



215, 217 



228 



libraries on CKD 
core image 219 
procedure 230 
relocatable 222 
source (statement) 
libraries on PBA 231 
libraries private 238 
library descriptor 

CKD core image library 
procedure library 
relocatable library 
source library 228 
PBA 231 
library record sizes 239 
library status table 206 



219 

230 
222 



reallocation of SISRES 26 
reallocation tables 204 
record formats 2 39 
relocatable library 

CKD 222 

FBA 231, 237 
return codes 250 
RLD record format 227 
RPS support 9 
RSERV program 

charts 122 

text 36 



SDL, build 29 

source statement library 

CKD 228 

FBA 231, 237 
SSERV program 

charts 125 

text 37 
stow table (STOWTAB) 32, 2 06 
SVASTAT 29 
switches 209 
SYSRES 

layout, CKD 215 
FBA 216 

reallocation 26 
system directory 217 



macros 39 

MAINT program 19 

member space on CKD 

core image library 220 
procedure library 230 
Relocatable library 222 
source library 228 

member space on FBA 238 

messages cross reference 24 9 



TABIBf array 209 
twin phases 9 
TXT record format 



226 



note word table 40 



phases, see Contents 

phase to module cross reference 248 

private libraries 238 

procedure library 

CKD 230 

FBA 231, 237 
programs, see librarian programs 
PSER? program 

charts 127 

text 37 
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READER'S 
COMMENT 
FORM 



This sheet is for comments and suggestions about this manual. We would appreciate your 
views, favorable or unfavorable, in order to aid us in improving this publication. This form 
will be sent directly to the author's department. Please include your name and address if 
you wish a reply. Contact your IBM branch office for answers to technical questions about 
the system or when requesting additional publications. Thank you. 



Name 
Address 



What is your occupation? 



How did you use this manual? 
As a reference source 
As a classroom text 
As a self-study text 



Your comments* and suggestions: 



* We would especially appreciate your comments on any of the following topics: 






Clarity of the text Accuracy Index Illustrations 


Appearance 


Paper 


Organization of the text Cross-references Tables Examples 


Printing 


Rinding 
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This manual is part of a library that serves as a reference source for system analysts, 
programmers and operators of IBM systems. Your answers to the questions on the back of this 
form, together with your comments, will help us produce better publications for your use. Each 
reply will be carefully reviewed by, the persons responsible for writing and publishing this 
material. IBM may use or distribute any of the information you supply in any way it believes 
appropriate without incurring any obligation whatever. You may, of course, continue to use 
the information you supply. 
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